Hi all,
I am getting this issue on my code below. Does anyone know why? It works fine for column Q but not for column V.
I get the error on this line " Range("V8:V" & lastrow).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlPasteSpecialOperationNone, skipblanks:=True, Transpose:=False"
Sub GlobalChartYTD_Cleanup()
'
' GlobalChartYTD_Cleanup Macro
' Cleans up the YTD chart for global quality data
'
Dim lastrow As Long
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
'First column clean up
Range("Q7").FormulaR1C1 = "=RC[-1]"
Range("Q7").Copy
Range("Q8:Q" & lastrow).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlPasteSpecialOperationNone, skipblanks:=True, Transpose:=False
Range("Q8:Q" & lastrow).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.NumberFormat = "#,##0.0"
Selection.NumberFormat = "#,##0"
Range("Q51").Select
Selection.ClearContents
Range("Q13").Select
Selection.ClearContents
Range("P4:P5").Select
Selection.Copy
Range("Q4:Q5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("P").Hidden = True
'2nd column to cleanup
Range("V7").FormulaR1C1 = "=RC[-4]"
Range("V7").Copy
Range("V8:V" & lastrow).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlPasteSpecialOperationNone, skipblanks:=True, Transpose:=False
Range("V8:V" & lastrow).Select
Bookmarks