Add column after last column used

[Liz]

I am stumped...

How do I add a column after the last column used? The last column used is
an unkown and varies per worksheet.

Working with rows and last row seams easier....I am getting confused because
counts are numbers, and column referencing for ranges is in letter format....

Thanks,
Liz

 

[Jacob Skaria]

Hi Liz

This will give you the last filled column in Row 1.
lngLastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

When you work with column numbers and row numbers try

Range(Cells(r1,c1), Cells(r2,c2))
where r1,c1,r2,c2 are numbers


If this post helps click Yes

 

[Robert McCurdy]

How do I add a column after the last column used?

Why, you can't add any more columns to the ones you already have.
Do you have all 256 filled, or with XL12 have you used all 16384 columns?
To find the first 'Empty' column after the last used one...

Sub aaLastColumn()
Dim c As Range, i As Long
Set c = Range("A1", ActiveSheet.UsedRange)
For i = c.Columns.Count To 1 Step -1
If Application.CountA(c.Columns(i)) <> 0 Then
Set c = c.Columns(i + 1)
Exit For
End If
Next i
c.Select ' for testing, where your code goes.
End Sub

Change the row part for A1 above, if your data starts elsewhere, and if
there is nothing above that row anywhere else on the sheet.


Regards
Robert McCurdy