Move values in rows at the end of the preceding row *SOLVED*

[Rick Rothstein]

If I am not mistaken, this non-looping macro should also work...

Sub ThisShouldWork()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Range("A1:A" & LastRow) = Evaluate(Replace(Replace("IF(ISNUMBER(0+SUBSTITUTE(SUBSTITUTE(A2:A#,"" "",""""),"","","""")),IF(LEFT(A1:A@,4)=""2018"",TRIM(A1:A@&"" ""&A2:A#),""""),IF(LEFT(A1:A@,4)=""2018"",A1:A@,""""))", "#", LastRow + 1), "@", LastRow))
  Range("A1:A" & LastRow).SpecialCells(xlBlanks).EntireRow.Delete
End Sub