(run time error 1004)-Delete method of range class failed- VB based macro consolidation
I dont know anything about VB. I consoidate timesheets end of the month which are excel based with VB coding. there are 10 excel timesheets when I click the macro button for internal consoidation , this time it is giving an erro
Runtime error 10004 Delete method of range class failed
and when i click debug, the following comes, I have no idea hot wot fix it, I should have completed this taks yesterady but struggling to fix the error. please help
In the below coding the error is this one in yello highlighted , I am copying here as is it not copying as a highlighted text
**Sheets("Consolidation EnC").Columns("P:U").Delete Shift:=xlToLeft
Next
'-------------------------------------------------------------------
'End of Loop to download the data and store in new format database for EnC
'-------------------------------------------------------------------
Sheets("Consolidation EnC").Activate
Sheets("Consolidation EnC").Cells.Clear
Sheets("Consolidation EnC").Cells(1, 1).Select
Sheets("Consolidation EnC").Range(Cells(1, 1), Cells(V_loop2, 21)).Value = Tb_Manpower_temporary
Sheets("Consolidation EnC").Columns("P:U").Delete Shift:=xlToLeft
Sheets("Data").Rows("50:50").Copy
Sheets("Consolidation EnC").Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Consolidation EnC").Range("A1").Select
Sheets("Consolidation EnC").Range(Cells(1, 1), Cells(Range("F65536").End(xlUp).Row, 15)).AutoFilter
Sheets("Consolidation EnC").Range("A1").Select
'*******************************************************************
'-------------------------------------------------------------------
'Loop to download the data and store in new format database for FOPS