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

[xladept]

Hello Norman and Doc,

A Filter with wildcard also works:

Sub NormanXLFox(): Dim wa As Worksheet, wb As Worksheet
Set wb = Sheets("Before"): Set wa = Sheets("After")
        wb.UsedRange.AutoFilter 1, "=2018*"
wb.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).Copy _
            wa.Cells(1, 1)
wb.UsedRange.AutoFilter: End Sub