Yes, if the columns are far apart its an issue i agree. I must admit i dont know an easy way of selected just the cells with nothing showing

Can do it with a few lines of VBA, maybe assigned to f12? but that might be overkill - it just selects at the monment but could be changed to copy

Sub selectnCopypop()

Dim r As String
Dim rRow As Integer

r = ActiveCell.Address

rRow = ActiveCell.Row

Do While ActiveCell.Offset(rRow, 0) <> ""
rRow = rRow + 1
Loop

Range(r).Resize(rRow, 1).Select

End Sub