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

[xladept]

I think this gets the rogues:

Sub NormanXLFox(): Dim wa As Worksheet, wb As Worksheet, r As Long, B
Set wb = Sheets("Before"): Set wa = Sheets("After")
B = wb.UsedRange: wb.UsedRange.AutoFilter 1, "=2018*"
For r = 2 To Range("A" & Rows.Count).End(xlUp).Row + 1
If Rows(r).RowHeight = 0 And Rows(r - 1).RowHeight <> 0 And _
IsNumeric(Left(Range("A" & r), 1)) Then
Range("A" & r - 1) = Range("A" & r - 1) & "," & Range("A" & r)
End If: Next r
wb.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).Copy _
            wa.Cells(1, 1)
wa.UsedRange.Replace ",,", ","
wb.UsedRange.AutoFilter: wb.UsedRange = B
End Sub