Hi, I've created a very crude macro to shift 3 cells in the A column into the A,B,C rows. It looks like this (keep in mind all i did was use the record function)
Sub Test()
Range("A2").Select
Selection.Cut Destination:=Range("A2")
Range("A3").Select
Selection.Cut Destination:=Range("B2")
Range("A4").Select
Selection.Cut Destination:=Range("C2")
Range("A5").Select
Selection.Cut Destination:=Range("A3")
Range("A6").Select
Selection.Cut Destination:=Range("B3")
Range("A7").Select
Selection.Cut Destination:=Range("C3")
Range("A8").Select
Selection.Cut Destination:=Range("A4")
Range("A9").Select
Selection.Cut Destination:=Range("B4")
Range("A10").Select
Selection.Cut Destination:=Range("C4")
Range("A11").Select
Selection.Cut Destination:=Range("A5")
Range("A12").Select
Selection.Cut Destination:=Range("B5")
Range("A13").Select
Selection.Cut Destination:=Range("C5")
Range("A14").Select
Selection.Cut Destination:=Range("A6")
Range("A15").Select
Selection.Cut Destination:=Range("B6")
Range("A16").Select
Selection.Cut Destination:=Range("C6")
Range("A17").Select
Selection.Cut Destination:=Range("A7")
Range("A18").Select
Selection.Cut Destination:=Range("B7")
Range("A19").Select
Selection.Cut Destination:=Range("C7")
Range("A20").Select
Selection.Cut Destination:=Range("A8")
Range("A21").Select
Selection.Cut Destination:=Range("B8")
Range("A22").Select
Selection.Cut Destination:=Range("C8")
Range("A23").Select
Selection.Cut Destination:=Range("A9")
Range("A24").Select
Selection.Cut Destination:=Range("B9")
Range("A25").Select
Selection.Cut Destination:=Range("C9")
Range("A26").Select
Selection.Cut Destination:=Range("A10")
Range("A27").Select
Selection.Cut Destination:=Range("B10")
Range("A28").Select
Selection.Cut Destination:=Range("C10")
Range("A29").Select
Selection.Cut Destination:=Range("A11")
Range("A30").Select
Selection.Cut Destination:=Range("B11")
Range("A31").Select
Selection.Cut Destination:=Range("C11")
Range("A32").Select
Selection.Cut Destination:=Range("A12")
Range("A33").Select
Selection.Cut Destination:=Range("B12")
Range("A34").Select
Selection.Cut Destination:=Range("C12")
Range("A35").Select
Selection.Cut Destination:=Range("A13")
Range("A36").Select
Selection.Cut Destination:=Range("B13")
Range("A37").Select
Selection.Cut Destination:=Range("C13")
Range("A38").Select
Selection.Cut Destination:=Range("A14")
Range("A39").Select
Selection.Cut Destination:=Range("B14")
Range("A40").Select
Selection.Cut Destination:=Range("C14")
Range("A41").Select
Selection.Cut Destination:=Range("A15")
Range("A42").Select
Selection.Cut Destination:=Range("B15")
Range("A43").Select
Selection.Cut Destination:=Range("C15")
Range("A44").Select
Selection.Cut Destination:=Range("A16")
Range("A45").Select
Selection.Cut Destination:=Range("B16")
Range("A46").Select
Selection.Cut Destination:=Range("C16")
Range("A47").Select
Selection.Cut Destination:=Range("A17")
Range("A48").Select
Selection.Cut Destination:=Range("B17")
Range("A49").Select
Selection.Cut Destination:=Range("C17")
End Sub
A1,B1,C1 are fields i don't want to modify, that is why they aren't included.
but what I would like it to see if anyone can create a simpler form of this macro that can go through the whole A column, not just up to A49 like ive done.
I would do this myself if i knew anything about creating macros :P
Thanks guys!
Bookmarks