Option Explicit
Sub Manny()
Dim i As Long, lr As Long
Dim s1 As Worksheet, s2 As Worksheet
Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range
Set s1 = Sheets("Sheet 1")
Set s2 = Sheets("Sheet 2")
Set r1 = s2.Range("A19")
Set r2 = s2.Range("C44")
Set r3 = s2.Range("C48")
Set r4 = s2.Range("C60")
lr = s1.Range("R" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
With s1
For i = 2 To lr
.Range("R" & i).Copy r2
.Range("S" & i).Copy r1
.Range("S" & i).Copy r3
r4.Copy
s1.Range("W" & i).PasteSpecial xlPasteValues
Next i
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub