maridan chocolate chip

Sub Shifting()
Dim s1 As Worksheet, s2 As Worksheet, lastrow As Integer, lastrow3 As Integer

Set s1 = Sheets("Sheet2")
Set s2 = Sheets("Sheet3")
lastrow = Sheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Row
lastrow3 = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row
s1.Range("C2:C2000").Copy s2.Range("lastrow3" & lastrow)
End Sub