Insert column and fill column upto where data is in previous column

[aka189]

Hi I am after a macro to insert a column lets say between column A and B. Once column inserted new column B should be filled by a text say "January" but it should be only filled upto the data of column A so if column A has data upto A600 then column B should be filled from B1 to B600.


I tried recording but it fills data upto B65000+.


Any help much appreciated.

 

[MARK858]

If you mean every cell to say January then Try

Sub FillVal()
Columns("B:B").Insert
Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value = "January"
End Sub

If you mean to increment the month then try

Sub IncrementMe()
Columns("B:B").Insert
Cells(1, 2).Value = "January"
Range("B1").AutoFill Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row)
End Sub

 

[MARK858]

Can you provide a link if you cross-post in future
Insert column and fill column upto where data is in previous column

Cross-Posting… Why you are asked to provide a link