Hi there,
I am relatively new to VBA and i have come across something that i hope is simple however i have got totally stuck on .
I want to cut and paste the data which appears as in table 1 to appear as in table 2 shown below. This includes deleting the two blank rows which will be created.
((28264) CAMARA) Data Data ghost popstick ((92491) App) Data Data sole heel ((96742) New) Data Data
Table1
((28264) CAMARA) ghost popstick Data Data ((92491) App) sole heel Data Data ((96742) New) Shoe Chair Data Data
Table 2
I have managed to do this once with the following macro, however, obviously this wont work its way through all of the data ending when the entire row is blank.
If someone could help it would be most appreciated.Sub move_2() Range("A2").Select Selection.Cut Range("B1").Select ActiveSheet.Paste Rows("2").Select Selection.Delete Shift:=x1Up Range("A2").Select Selection.Cut Range("C1").Select ActiveSheet.Paste Rows("2").Select Selection.Delete Shift:=x1Up End Sub
Thanks,
Andy.