VBA Help with Copying & pasting data to the last row

[MICHAELREXCEL]

Hello,

I am trying to copy data from row 160 and paste it on rows 161 to 183 (the last row). Normally, this code would be easy to write, however rows 161 to 183 have blank cells at the beginning. Therefore, I cannot do the typical "range.end" methodology. Also, the row numbers will change all the time since the amount of data frequently changes.

Is there a way to write a VBA code that does this? Any help is welcomed.

Thanks

 

[Joe4]

What column can be looked to determine where the last row of data is?

 

[MICHAELREXCEL]

Column K. Is there a way I can insert a photo of the spreadsheet?

 

[Joe4]

You cannot upload files to this site. But there are tools you can use to post screen images. They are listed in Section B of this link here: Guidelines for Forum Use.

Also, there is a Test Here forum on this board that you can use to test out these tools to make sure they are working correctly before using them in your question.

Are you looking for some code like this?

    Dim lastRow As Long
    
'   Find last row in column K with data
    lastRow = Cells(Rows.Count, "K").End(xlUp).Row
    
'   Fill column A from row 161 to last row with value in A160
    Range("A160:A" & lastRow) = Range("A160")