VBA - Define Selection using cell reference

you could do

Sub doit()

Sheets("Sheet2").Range("A1:C" & Sheets("Sheet1").Range("F1").Value).Value = Sheets("Sheet1").Range("A2:C" & (Sheets("Sheet1").Range("F1").Value + 1)).Value

End Sub