VBA - Define Selection using cell reference

Option Explicit

Sub test()

Dim YouLikeToPasteTo As String
YouLikeToPasteTo = "H1"

Sheets("Sheet1").Range("A2:C" & _
    1 + Sheets("Sheet1").Range("F1").Value).Copy _
    Destination:=Sheets("Sheet2").Range(YouLikeToPasteTo)

End Sub

Sub test2()

Dim YouLikeToPasteTo As String
YouLikeToPasteTo = "H1"

Sheets("Sheet1").Range("A2:C" & _
    1 + Sheets("Sheet1").Range("F1").Value).Copy

With Sheets("Sheet2")
    With .Range(YouLikeToPasteTo)
        .PasteSpecial (xlPasteValues)
    End With
End With
Application.CutCopyMode = False

End Sub

Regards, TMS