My bad. I misread your requirements.
Try this instead. Again, on a copy of your workbook.
If you don't want the empties deleted, delete the line before "End Sub".

Sub Try()
    Dim lr As Long, i As Long
    lr = Cells(Rows.Count, 3).End(xlUp).Row
    For i = 3 To lr Step 5
        With Range("K" & i).Resize(, 2)
            .Formula = "=R[3]C[-10]"
            .Value = .Value
        End With
    Next i
    Range("L1:L" & lr + 3).SpecialCells(4).EntireRow.Delete
End Sub