Macro using Lrow

[sturnusek]

Hi all,

I have a data in sheet called 'Request' that I need selecting in A:C range until it ends and pasting below existing data in 'Requested' sheet.

I'm trying to write this withLrow = Cells(Rows.Count, "A").End(xlUp).Row, but have no luck.

Any ideas?

 

[DanteAmor]

Try this

Sub copy_paste()
  Dim sh1 As Worksheet, sh2 As Worksheet, lr As Long
  Set sh1 = Sheets("Request")
  Set sh2 = Sheets("Requested")
  sh1.Range("A1:C" & sh1.Range("A" & Rows.Count).End(xlUp).Row).Copy
  lr = sh2.Range("A" & Rows.Count).End(xlUp).Row + 1
  sh2.Range("A" & lr).PasteSpecial xlPasteValues
End Sub

 

[PCL]

selecting in A:C range until it ends

The first row included ???

 

[sturnusek]

Thanks Dante, much appreciated!

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.