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

PHP Code: 

Option Explicit
Sub Aka189()
 Dim Rws As Long, Rng As Range
 
 Rws = [A65500].End(xlUp).Row
 Set Rng = Range(Cells(Rws, "A"), Cells(Rws, "A").End(xlUp))
 MsgBox Rng.Address         '<=|'
 Columns("B:B").Select
 Selection.Insert Shift:=xlToRight
 Rng.Offset(, 1).Value = "Jan"
 
End Sub 


Originally Posted by Sa DQ

PHP Code: 

Option Explicit
Sub Aka189()
 Dim Rws As Long, Rng As Range
 
 Rws = [A65500].End(xlUp).Row
 Set Rng = Range(Cells(Rws, "A"), Cells(Rws, "A").End(xlUp))
 MsgBox Rng.Address         '<=|'
 Columns("B:B").Select
 Selection.Insert Shift:=xlToRight
 Rng.Offset(, 1).Value = "Jan"
 
End Sub 


Thanks very much Sa DQ

Originally Posted by WasWodge

Please provide links if you are going to cross-post
http://www.mrexcel.com/forum/excel-q...us-column.html

If you must X-Post...Why you should post a link
The Forum Rules

Sorry about this will do from next time