Excel VBA last row with data in a column copy to another cell

[EuginG]

Hi!
I have B column with hundreds or thousands rows (always different quantity). I need to copy last row (cell) with data (in the B column) and paste it, for example, to S15 cell.

Please help!

 

[Fishboy]

Hi!
I have B column with hundreds or thousands rows (always different quantity). I need to copy last row (cell) with data (in the B column) and paste it, for example, to S15 cell.

Please help!

Hi Euging, welcome to the boards.

If I have understood correctly then this should do the trick:

Sub CopyLastRow()
' Defines variable
Dim LastRow As Long


' Defines LastRow as the last row of data based on column B
LastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).End
' Copies the row of column B to cell S15
Range("B" & LastRow).Copy Range("S15")


End Sub

 

[My Aswer Is This]

Try this Vba Script:

Sub Last_Row_Here()
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Range("B" & Lastrow).Copy Destination:=Range("S15")
Application.ScreenUpdating = True
End Sub

 

[EuginG]

Thanks, guys! Both answers WORK!!! I was so close… ))

Fishboy! Your solution is just fine! But I suppose I need to use “Row” instead of “End” in the string you have posted:

LastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).End


Have a nice day!

 

[Fishboy]

Thanks, guys! Both answers WORK!!! I was so close… ))

Fishboy! Your solution is just fine! But I suppose I need to use “Row” instead of “End” in the string you have posted:

LastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).End


Have a nice day!

Ooops! Typo

Yes it should read .Row and not .End