空白セルに指定したセル中のデータを貼り付ける

Visual Basic for Applications
Sub Macro()
  Dim srrr As Integer '起点セルの行番号 Starting
  Dim sccc As Integer '起点セルの列番号 Starting
  Dim occc As Integer '検索セルの列番号 Objective
  Dim sheet As Integer
  Dim EndRow As Integer
  Dim rrr As Integer
  Dim tmp As Variant
  srrr = 1
  sccc = 1
  occc = 1
  sheet = 1
  EndRow = Worksheets(sheet).Cells(srrr, sccc).End(xlDown).Row
  tmp = Worksheets(sheet).Cells(srrr, occc)
  rrr = srrr
  Do Until EndRow < rrr
    If Worksheets(sheet).Cells(rrr, occc) = "" Then
      Worksheets(sheet).Cells(rrr, occc) = tmp
    Else
      tmp = Worksheets(sheet).Cells(rrr, occc)
    End If
    rrr = rrr + 1
  Loop
End Sub