Dale un vistazo a esto:
Como Convertir uno o varios archivos de PDF a Excel con MACROS // SIN PROGRAMAS GRATIS y CONVERTIDORES - Aprende y Enseña Excel (xn--aprendeyenseaexcel-y0b.com)
Solo quería mostrar mi admiración hacia ti, pero si tu lo quieres así pues cambio la palabra Maestro por GRAN ENTUSIASTA DE EXCEL (con mayúsculas), un saludo.
For cont = 1 To 16361
With Hoja1
letra = Split(Cells(cont).Address, "$")(1)
ufh1 = .Range(letra & Columns.Count).End(xlUp).Row
If ufh1 > 1 Then
letcol = .Range(letra & 1).Column
MsgBox letcol
Exit For
End If
End With
Next cont
Private Sub CommandButton1_Click()
primeracol = Cells(1, 1).End(xlToRight).Column
MsgBox "Primera columna con datos en fila 1 es: " _
& "La columna " & "** " & primeracol & " **"
End Sub