Next Empty Column

[mikebecker]

I have data in column A. I need to go to the next empty column to paste data from another workbook. I am having difficulties. Also, I was able to get code to work if there already data in column B, C, ... but if the workbook is new and no data in column B, my code finds the first empty column to the extreme right of the workbook.

This is what I've tried so far..

<font face=Courier New>    <SPAN style="color:#007F00">'This command goes to the extreme right of the worksheet</SPAN>
    Selection.End(xlToRight).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    
    <SPAN style="color:#007F00">'This command goes to A2 - even with data.</SPAN>
    ActiveCell.Offset(0, 1).Range("A1").Select
</FONT>

Regards,

Mike

 

[Oaktree]

Perhaps this?

'This command goes to the extreme right of the worksheet
Range("A1").End(xlToRight).Offset(0, 1).Select

'This command goes to A2 - even with data.
Range("A1").offset(1,0).select

 

[mikebecker]

Oaktree,

I was able to tweek your code and works great. Thanks.

Mike