PasteSpecial

[Forestq]

Team,

I have simple macro:
- open two workbooks
- from "Sheet1" copy range to "Sheet1" second sheet.

It works fine, but when macro paste the values, height & width columns are difrent like in the source sheets.
I want to have this some format in both sheets.

My code:

MsgBox "Otowrz dokument gdzie maja zostac skopiowane dane"
Application.Dialogs(xlDialogOpen).Show
temp = ActiveWorkbook.Name
 
MsgBox "Otworz plik z danymi"
Application.Dialogs(xlDialogOpen).Show
my_data = ActiveWorkbook.Name
 
'------------------------------------------
Workbooks(my_data).Worksheets("Sheet1").Activate
x_columns = Application.WorksheetFunction.CountA(Rows(1))
y_last_cell = Cells(65536, x_columns).End(xlUp).Row
Range(Cells(1, 1), Cells(y_last_cell, x_columns)).Copy
 
'------------------------------------------
Workbooks(temp).Worksheets("Sheet1").Activate
Range("A3").PasteSpecial (xlPasteAll)

thanks for your all comments and support,

regards,
PvK

 

[Forestq]

Maybe last point

How to do it this some, but for example past from B3?
I try to add somethig like You:

wksDest.Columns("2:1").Insert

But not work. If You have time to help me with that I will be grateful.
king regards,
PvK

 

[Domenic]

Try...

wksDest.Columns("A:B").Insert

 

[Forestq]

It works nice.
Once again thanks for Your support.
King Regards
PvK

 

[Domenic]

You're very welcome!