Fill blank cells

I am in need of some help. I am new to VBA programming and in need to find a way to copy a value from column D and paste it in column E in the blank cells between two values in the column. I am also trying to delete columns 5 & 6 after I copy and paste the values. The row deletion works by itself, the trouble is pasting in the blanks cells. Here is the code I have - what am I doing wrong?

Sub Delete_Empty_Rows()
Dim i As Long
Dim c As Range
  Dim rSearchRange As Range
  For i = rSearchRange.Row.Count To 1 Step -1
   Set c = Worksheets("VALUES").UsedRange.Columns(4).Find("Sort Program:", LookIn:=xlValues)
   If WorksheetFunction.CountIf(c) Then
   c.SpecialCells(xlCellTypeConstants).Copy
   If WorksheetFunction.CountBlank(c) Then
   c.SpecialCells(xlCellTypeConstants).PasteSpecial
   Next i
   
  Set rSearchRange = Worksheets("VALUES").UsedRange.Columns(6) 'for example
  If WorksheetFunction.CountBlank(rSearchRange) Then _
     rSearchRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
     Set rSearchRange = Worksheets("VALUES").UsedRange.Columns(5) 'for example
  If WorksheetFunction.CountBlank(rSearchRange) Then _
     rSearchRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub