Deleting Range without formating of cells

[Martin1991]

Hello.
I am using simple macro to copy some Values onto another sheets of another workbooks. But before paste of Values i need to delete remaining Values in COPYpath workbook.
And here came the problem, because i need to vba not to clear values including format of page. In workbook, where i copy to, is format, where the "A column" has original format, but columns "B-E" have greater Width.
But after deleting of original data, the vba format mentioned Columns to same Width as is in "A Column"

adding only the part of copy, paste code.

Db.Activate ´Db is just defined WorkBookRange("A1:E1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete
wb.Activate
obl2.Columns(3).SpecialCells(xlCellTypeVisible).Copy
Db.Activate
Db.Worksheets("Sheet1").Range("B1").Paste

There is problem with paste part aswell,(438-object doesnt support this property of method). I tried more ways, how to declare the Range i needed; Same bug with codes:

Worksheets("Sheet1").Range("B1").Paste

Worksheets("Sheet1").Range("B1").Select
Selection.Paste

Does it needs some kind of pasteSpecial since i copy only visible cells?

Please help to advise, how to fix it.

 

[offthelip]

have you tried:

 Range("A1:E1").Select   
 Range(Selection, Selection.End(xlDown)).Select
    Selection = ""

 

[Martin1991]

Ok, of course it works. And i wonder it did not come to my mind. How simple.

Thanks!

Any Ideas about the paste part?

 

[Martin1991]

I know it is basic for beginners. But still couldn´t handle it out and find the solution aswell.

Now it works with (and i realize, there are more methods, how to make it works):

Range("B1").PasteSpecial xlPasteAll

In advance someone will look up about same issue.

One more time thanks, offthelip, for reminding, that sometimes it is enaugh to turn on brain.