Excel VBA in iskanje zadnje "polne" celice

Na prvi pogled bi sicer rekel, da poskušaš verjetno doseči nekaj drugega, pa to počneš na morda nekoliko neroden način. Pa vendar, zaporedno število zadnje neprazne vrstice v stolpcu A lahko poiščeš z

ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row

Verjetno pa ti bomo lažje pomagali, če napišeš, kaj zares želiš doseči. Še najbolje, da pokažeš kak dejanski primer (zaslonski posnetek) in želeni rezultat.

Podajam ti kodo, katero sem nekoč uporabljal za razbijanje podatkov, mogoče ti bo v pomoč. Z malo spremembami se jo da uporabiti tudi za tvoj namen. Osnovni namen je bil razbijanje piimka in imena v dva stolpca.
Slabost te funkcije je, da zaznava konec vse tabele, ne pa konec podatkov zato sem pred obdelavo počistil prazne stolpce. "Excel How To Delete Extra Blank Cells From Sheets" ti bo v pomoč pri iskanju rešitve. S tem sem tudi zmanjšal velikost datoteke, ter pohitril izvajanje obdelav. Če se boš dovolj potrudil, boš za to našel tudi makroje.

Sub PriimekInIme()
    Dim rng As Range
    Set ObjExcel = Excel.Application
    
    ' če je izbrana samo ena celica v koloni potem izbere celotno kolono
    Set rng = Selection.Cells
    If rng.Rows.Count = 1 Or rng.Rows.Count = ActiveSheet.Rows.Count Then
      Range(Cells(rng.Row + 1, rng.Column), _
        Cells(ActiveSheet.Range("A1").SpecialCells(xlCellTypeLastCell).Row, rng.Column)).Select
      Set rng = Selection.Cells
    End If
    
    rng.Offset(, 1).Resize(, 2).EntireColumn.Insert     ' Dodajanje 2 stoplcev
    rng(1, 1).Offset(-1, 1).Value = "PRIIMEK"           ' Naslov prvega dodanega stoplca
    rng(1, 1).Offset(-1, 2).Value = "IME"               ' Naslov drugega dodanega stoplca
  
    ' Obdelaj vsako vhodno celico
    For Each rng In Selection.Cells
        rng.Value = ObjExcel.Application.Clean(Trim(rng.Value))         ' počisti simbole
        rng.Value = Replace(Replace(rng.Value, "-", " "), "  ", " ")    ' zamenja "-" in dvojne presledke
        
        If InStr(rng.Value, " ") > 0 Then                               ' če najde vsaj en presledek
           rng.Offset(0, 1).Value = UCase(Left(rng.Value, InStrRev(rng.Value, " ") - 1))
           rng.Offset(0, 2).Value = UCase(Right(rng.Value, Len(rng.Value) - InStrRev(rng.Value, " ")))
        Else
           rng.Offset(0, 1).Value = UCase(rng.Value)
        End If
    Next
    Set rng = Nothing
    Set ObjExcel = Nothing
End Sub