i am currently using this code
Dim x As Long
x = Worksheets("Sheet1").Range("O" & Rows.Count).End(xlUp).Row
If x = 1 And Worksheets("Sheet1").Range("J22") = "" Then x = 0
Worksheets("Sheet1").Range("O" & x + 1) = Range("J22")
however what i need is if a1 = jan then range J21 sheet 1
a1 = Feb then range K21 sheet 1
a1 = (throughout the rest of the months) moving range over by one
thanks in advance
Dim x As Long
x = Worksheets("Sheet1").Range("O" & Rows.Count).End(xlUp).Row
If x = 1 And Worksheets("Sheet1").Range("J22") = "" Then x = 0
Worksheets("Sheet1").Range("O" & x + 1) = Range("J22")
however what i need is if a1 = jan then range J21 sheet 1
a1 = Feb then range K21 sheet 1
a1 = (throughout the rest of the months) moving range over by one
thanks in advance