Hello,

Selecting all of column J would be done this way
Sheets("sheet1").Range("J:J").Select
Target Month = sheet 1, cell A1
Select Sheet 2, A1. If = Target month then Select A:A, copy/paste special/values, then end sub, if <> target month, move 1 col to right.
What?!? Simple terms friend.