Paste to last row

[Mark F]

I have the following code

Selection.Copy
Range("F2:F26").Select
ActiveSheet.Paste

The code copies into range F2:F26. I would like to copy to between f2 and the last row of the sheet

I know this involves Xlup but cannot work out how

Can you help

Thanks

Mark

 

[Dylan]

What is the range of the selection that you copied?

 

[Mark F]

Hi

I just want to copy a formula that is in F2 all the way to the last row

Thanks

Mark

 

[njimack]

Based on your request, the following should work (assumes you're copying column A - change as needed).

Sub Copy_and_Paste()
Dim End_Row as Long

End_Row = Range("A" & Rows.Count).End(xlUp).Row

Range("A2:A" & End_Row).Copy Destination:=Range("F2:F26")
Application.CutCopyMode = False
End Sub

 

[Richard Schollar]

Hi

I just want to copy a formula that is in F2 all the way to the last row

Thanks

Mark

Hi Mark

So you are copying a single cell and want to copy it to F2:F65536? Or how are you defining the last row? Is it based on some adjacent column that contains values?

 

[Mark F]

Sorry

Should have made it clearer.

I am looking to copy the formula that is in f2 all the way down column f to the last active row (xlup?), There will be contents in column A

MArk

 

[njimack]

Try this...

Sub Copy_and_Paste() 
Dim End_Row as Long 

End_Row = Range("A" & Rows.Count).End(xlUp).Row 

Range("F2).Copy Destination:=Range("F3:F" & End_Row) 
Application.CutCopyMode = False 
End Sub

 

[Richard Schollar]

A minor variation on Neil's code will suffice:

Sub Copy_and_Paste()
Dim End_Row as Long

End_Row = Range("A" & Rows.Count).End(xlUp).Row

Range("F2").Copy Destination:=Range("F2:F" & End_Row)
Application.CutCopyMode = False
End Sub

 

[Mark F]

Thanks

Works a treat

Mark