Option Explicit
Sub AllColumns()
Dim col As Long
For col = 2 To 14
OneColumn col
Next
End Sub
Sub OneColumn(col As Long)
Dim rw As Long

rw = Cells(65000, col).End(xlUp).Offset(1, 0).Row
Cells(rw, col).Value = Cells(rw, 1).Value

End Sub

HTH
Patrick Molloy
Microsoft Excel MVP

"Greg B" wrote:

I am currently writing a spreadsheet where i put numbers across a page and
they are in columns 1 to 14.

I want a code to look up the last used cell on column "g4" for example

and give me the corresponding cell on g1

I am not sure on how to word this. Hope this is clear enough

Thanks in advance

Greg