Jump and paste to the last Row of current column - Excel 2019

[SanjayGMusafir]

Dear Experts
I often need to copy data from few columns in a row and then paste it in the same columns in the last row of a table.

I tried writing a code using information from here and there, but it's not working at all. Can you help find me the error and give me a workable code.

Thanks a lot

Sub JumpClientsBottom()
'
' JumpClientsBottom Macro
'


'
    Sheets("Client").Select
    
    Dim lRow As Long
    lRow = Cells(rows.Count, 1).End(xlUp).Row
    
    'To go to last row of the same Active column
    Range((ActiveCell.Column) & lRow).Select
    
    
End Sub

 

[Joe4]

Maybe something like this:

    Dim lRow As Long
    Dim col as Long

    lRow = Cells(rows.Count, 1).End(xlUp).Row
    col = ActiveCell.Column
    
    'To go to last row of the same Active column
    Cells(lRow, col).Select

 

[SanjayGMusafir]

Thanks a lot Joe4. It worked. I realized the mistake I was doing. Thanks again

 

[Joe4]

You are welcome!

I often like to use the Cells(row, column) range referencing, instead of Range(...), as Cells allows you to use the column letter or number (which is especially convenient when .Column in VBA returns the column number, not the letter!).

 

[SanjayGMusafir]

That's a useful input for future use. Thanks a lot