Aşağıdaki makro kodu ile yapabildim.
İlgilenen arkadaşlara teşekkür ederim.
Sub Fill_Blanks_Cells()
Dim My_Area As Range
On Error Resume Next
Set My_Area = Nothing
Set My_Area = Range("A2:L" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not My_Area Is Nothing Then
With My_Area
.FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
MsgBox "Tespit edilen boş hücreler üstteki hücre ile doldurulmuştur.", vbInformation
Else
MsgBox "Boş hücre bulunamadı!", vbExclamation
End If
End Sub