Hi Stono
This snip of code might help you.
It selects the cell in column A immediately below the last row with data, (for you to paste into). Perhaps you can adapt it for your purposes.
Count = 0
For Each cell In [A65536:IV65536]
If cell.End(xlUp).Row > Count Then
Count = cell.End(xlUp).Row
End If
Next cell
Range("A" & Count + 1).Select
End Sub
Regards
Derek
Like this thread? Share it with others