Zapolnjevanje praznih celic

Velikokrat kopiramo razne tabele iz Worda (besedilni urejevalnik) v Excel, pri tem pa pride do pojava praznih celic. Tega niti ne zaznamo kot težave, dokler nismo prisiljeni teh podatkov obdelati za nadaljne analize. Sam sem imel tako težavo, ker so v "stolpcu B" (naziv naselja) bili podatki, ki sem jih potreboval za nadaljno obdelavo. Zato sem si malo pomagal z VBA

Sub zapolni()
'najde prvo prazno celico in vanjo prepiše vrednost in zadnje polne celice

Dim i As Integer

'Nastavljeno je na korak 20 vrstic, ker se to lepo vidi na eni velikosti zaslona
For i = RowCount To 20 Step 1

'Range je določen za maksimalno velikost. ni pa potrebno,ker se sam odločiš kdaj neha delat
'Trenutno je izbran stolpec B
Range("B65536").End(xlUp).Select

    Range("B1").End(xlDown).Offset(1, 0).Select
    ActiveCell.Offset(-1, 0).Copy
    ActiveCell.Offset(0, 0).PasteSpecial xlPasteAllExceptBorders

Next

End Sub