Select last active cell, offset (-50, 0) copy

[Kamakura]

Hello,

I would like to create a macro that selects the last active cell in a column, counts back 50 rows, and select all values that fall into that selection. I would then like to copy those values and paste them into another column, let's say location "K2"

Here's what I have so far, and I am stuck.


Range("A1").Select
Range("A1").End(xlDown).Select
ActiveCell.Offset(-50, 0).Range("A1").Select

I really appreciate any help I could get.

Respectfully,

Kirk

[Bob Phillips]

LastRow = Range("A1").End(xlDown).Row
If LastRow < 50 Then

Set rng = Range("A1").Resize(LastRow)
Else

Set rng = Range("A1").End(xlDown).Offset(-50, 0).Resize(50)
End If
rng.Copy Range("k2")

[Kamakura]

Thank you so much, you seriously helped me today. I really appreciate it!