I have 2 workbooks, one named BR1VOA and the other BR1 New Vehicles
I set up a macro below to copy the data from Br1VOA1.xls to BR1 New Vehicles.xls
The macro works well where there is data in BR1VOA1, but if there is no data, i.e all the cells are blank, it comes up with run time error 1004, 'The information cannot be pasted because the copy area & paste area are not the same area & shape"
It would be appreciated if you could assist
Sub Copy_Data()
Windows("Br1VOA.xls").Activate
Range(Cells(2, "a"), Cells(2, "a").End(xlDown).Offset(, 2)).Copy
Windows("BR1 New Vehicles.xls").Activate
Cells(6, "a").PasteSpecial
Range("A1").Select
With Range("A:A")
.HorizontalAlignment = xlLeft
End With
Howard
I set up a macro below to copy the data from Br1VOA1.xls to BR1 New Vehicles.xls
The macro works well where there is data in BR1VOA1, but if there is no data, i.e all the cells are blank, it comes up with run time error 1004, 'The information cannot be pasted because the copy area & paste area are not the same area & shape"
It would be appreciated if you could assist
Sub Copy_Data()
Windows("Br1VOA.xls").Activate
Range(Cells(2, "a"), Cells(2, "a").End(xlDown).Offset(, 2)).Copy
Windows("BR1 New Vehicles.xls").Activate
Cells(6, "a").PasteSpecial
Range("A1").Select
With Range("A:A")
.HorizontalAlignment = xlLeft
End With
Howard