copy sheet to new worksheet

[waka]

any one can help ? here is my code when it reaches red line code.i encounter 400 error.
my logic is this, copy sheet1 column A1 data and paste at sheet 2 column G1.

Please Login or Register  to view this content.

[protonLeah]

Issue one:
lastrow = .Cells(.Columns.count, "A").End(xlUp).Row --> lastrow = .Cells(.Rows.count, "A").End(xlUp).Row will give you the last row in column A

2. RowsWithNumbers.EntireRow.copy Destination.Range("G1") Entire row does not match Cell G1 (i.e., size); did you mean to insert a row?

[MBCMDR]

Hay I am still learning but this is what I did, On my sheet
BOM is primary sheet Fasteners is secondary.
If fasterner work sheet exists get a popup for new worksheet name.
My poplate was colored rows that I ID parts into catagorys

NOTE: On mine I copyed the Column format to the new page and also did a sort..

MB

Please Login or Register  to view this content.

[waka]

2. RowsWithNumbers.EntireRow.copy Destination.Range("G1") Entire row does not match Cell G1 (i.e., size); did you mean to insert a row?

yep, sample logic is i would like to copy colA from sheet1 to colG in sheet2.

if i change back to A1 everything work fine. just that i can't copy to "G1"

Please Login or Register  to view this content.