Copy range from one sheet to another

[tmccar]

When range "bg1" is copied from sheet "LB Rack" to the new sheet, It is pasted in column "BH". Why does it not paste into column "BG"?

Private Sub ComboBox1_Change()
Dim xlbook As Excel.Workbook
Dim j as Integer
Dim n as Variant
Dim xlapp As Excel.Application
Dim xlSheet As Excel.Worksheet
Set xlbook = GetObject("C:\07509\LB_RACKTMC.xlsx")
Set xlSheet = xlbook.Sheets("LB Rack")
Set xlapp = xlbook.Parent
xlapp.Visible = True


Set src = xlSheet.Range("bg1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Set sh = xlbook.Sheets.Add
src.Copy sh.Range("bg1")


End Sub

 

[dave3009]

At a guess I'd say there is something in column BF within the current region, even if it is a hidden row/column it still forms part of the current region.

To test I created a small range which selected just fine. I then moved the range along a little, again it selected just fine. I then put a value in a cell one column to the left and hid that row. The new current region (xlcelltypevisible) got selected including the column one to the left.

 

[tmccar]

At a guess I'd say there is something in column BF within the current region, even if it is a hidden row/column it still forms part of the current region.

To test I created a small range which selected just fine. I then moved the range along a little, again it selected just fine. I then put a value in a cell one column to the left and hid that row. The new current region (xlcelltypevisible) got selected including the column one to the left.

Yes, I think you're right. For some reason the range "BF" is being seen as 2 columns wide, but I don't see why.

 

[dave3009]

A merged cell perhaps?

Is there something in destination BF you don't want to paste on top of? If not you could just paste to BF, if there is you might want to look at offsetting your copy range.