¿Por qué este script de Excel VBA copy hacia abajo y se repite hasta la última celda seleccionada?

¿Por qué esto copy los datos a la siguiente celda en blanco hasta la siguiente celda llena, luego toma los datos de esa celda y comienza de nuevo?

Option Explicit Sub CopyDown() Dim wsPOD As Worksheet Dim lastrow Set wsPOD = Sheets("PO Data") With wsPOD lastrow = wsPOD.Range("F" & Rows.Count).End(xlUp).Row wsPOD.Range("A2:D" & lastrow).Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 = "=R[-1]C" End With End Sub 

Entiendo la mayoría del guión, pero no entiendo esta parte:

  Selection.SpecialCells(xlCellTypeBlanks).Select Selection.FormulaR1C1 = "=R[-1]C" 

La última parte significa especialmente un galimatías para mí, ¿alguien puede ayudarme a entender esto por favor?

Basado en mi comentario, puedes orderar el código usando

Opción explícita

 Sub CopyDown() Dim wsPOD As Worksheet Dim lastrow as long Dim EmptyCells as range Set wsPOD = Sheets("PO Data") With wsPOD lastrow = .Range("F" & .Rows.Count).End(xlUp).Row set EmptyCells = .Range("A2:D" & lastrow).SpecialCells(xlCellTypeBlanks) EmptyCells.FormulaR1C1 = "=R[-1]C" End With End Sub