Automate select, copy, paste command with VBA

Sub Bowlers_Fill()
    Dim rngArea As Range, LastRow As Long
    
    LastRow = Range("C" & Rows.Count).End(xlUp).Row
    
    For Each rngArea In Range("A1:B" & LastRow).SpecialCells(xlCellTypeBlanks).Areas
        rngArea.Value = rngArea.Resize(1, 2).Offset(-1).Value
    Next rngArea
    
End Sub