VBA - Define Selection using cell reference

Try:

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

Will it always start at Range A2?

Yes, you can do that. See the attached example (I'm putting the values in F2 for the example)

Option Explicit
Sub pasteChoosenRows()
Dim rowsToUse As Long
Dim source As Range, destination As Range


'Adjust these to the real sheet'
rowsToUse = ActiveSheet.Range("F1").Value
Set source = ActiveSheet.Range("A2")
Set destination = ActiveSheet.Range("F2")

'Align the values'

destination.Resize(rowsToUse, source.End(xlToRight).Column - source.Column + 1).Value = _
source.Resize(rowsToUse, source.End(xlToRight).Column - source.Column + 1).Value

End Sub

Range("A2:C" & (Range("A2").Row + Range("F1").Value - 1)).Copy Range("H2")

Regards, TMS

Thanks for the rep.

You need to fully qualify all the addresses.

Try:

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

Regards, TMS



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.

You'd probably have to split it into a separate Copy followed by a Paste Special | Values


Regards, TMS

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