VBA - Copying a line to the next non-blank line and repeat - help

[Eean]

I have several large documents that need data filling in and I'm trying to work out the best way to do it.
I need the contents of A and B columns copying down the rows to the last blank cell then the same again for the next non blank cells.

I'm hoping someone can help - also if there's something simple that I've missed, please let me know.
Thanks in advance

 

[njimack]

Sub Fill_Blanks()
Dim LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.UsedRange.Rows.Count
With Range(Cells(1, 1), Cells(LastRow, 2))
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Copy
    .PasteSpecial xlValues
End With
Application.ScreenUpdating = True
End Sub

 

[Jtufplata]

hello,

you can use this: you just need to select all of your data, and it will autofill for you

Sub Copia1()
Dim my_range, my_cells As Range
Set my_range = Selection
    For Each my_cells In my_range
        If IsEmpty(my_cells) = True Then
            my_cells = my_cells.Offset(-1, 0)
        End If
    Next my_cells
End Sub

 

[Eean]

That's brilliant. Thank you so much!!

 

[Jtufplata]

hehe, no problem

 

[Eean]

Sub Fill_Blanks()
Dim LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.UsedRange.Rows.Count
With Range(Cells(1, 1), Cells(LastRow, 2))
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Copy
    .PasteSpecial xlValues
End With
Application.ScreenUpdating = True
End Sub

This only seems to be copying the data from Column B?