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

[DocAElstein]

...A Filter with wildcard also works:....

well it almost does, it doesnt catch them there rougue numbers does it now...
ThemThereRogueNumbers.JPG : https://imgur.com/hTfWPNE
ThemThereRogueNumbers.JPG


But never the less, a very nice try from a junior member, especially on an evening when he should be too pissed to do anything anyway. ( One day I will learn about these filter things.... )

Nice t c ya

Happy New Year

( But don't give up the day job, just yet..

Sub NormanXLFox() ' xladept "un coluned"
Dim wa As Worksheet, wb As Worksheet
Set wb = Sheets("BEFORE"): Set wa = Sheets("xladeptAfter")
 wb.UsedRange.AutoFilter 1, "=2018*"
 wb.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).Copy Destination:=wa.Cells(1, 1)
 wb.UsedRange.AutoFilter ' Will trun filter off
End Sub

_____ Workbook: Data Sample.xlsm ( Using Excel 2007 32 bit )

Row\Col	A
1	2018, 1, 90515, 10024515, G9, SBlabla (HQ), CHE, BLABLA, blabla, 10012098, 12003.5
2	2018, 1, 90629, 10022334, P3, BLABLA blabla (blablabla), CHE, BLABLA,blabla, 10033609, 13941.72
3	2018, 1, 90709, 10020009, P4, Blabla og Blalala (NY), CHE, Blabla,Bla-ah,where's me rogue, numbers then
4	2018, 1, 90765, 10012123, P4, Ch of Blabla(Blabla of Blabla), CHE, BLA-BLA,Bla Blabla,where's me rogue, numbers then
5	2018, 1, 90712, 10022908, P4, Snr BLA Off (Strat BLa, BLA), CHE, BLABLA,Bla BLabla, 10023234,where is me rogue number then
6	2018, 1, 90919, 10020984, P2, Ass BLA Balbla, CHE, BLA,Blabla, 10033098, 10486.33
7	2018, 1, 95706, 10023098, NB, Assc BLA Blabal (LatBLAa), BLA, BLABLABLA,Blabla, 10034318,where is me rogue number then
8	2018, 1, 95716, 10018763, NA, Asst BLA Off (Blabla & Multi-BLa), BLA, BLA,Bla, 10097776, 8607.96
9	2018, 1, 99716, 10026132, G5, Snr BLA Asst (Bla Blabla), BLA, BLABLA,bla BLa, 18767043, 5477.44
10	2018, 1, 99716, 10016545, G6, Blabla Blabla (BLA), BLA, BLABLABLA,Blabla, 1097029,where is me rogue number then

Worksheet: xladeptAFTERwheresMeRougues