Hi All,
I have the below code that is working just fine, however I want to eliminate the need for a formatting macro (in red) if possible. The goal is to eliminate blanks to consolidate data. This is the only way I have been able to accomplish this. All help appreciated
Sub PT_EXT_Macro1()
'
' PT_EXT_Macro1 Macro
'
'
Sheets("Pivot Table").Select
Range("B9:C32").Select
Selection.Copy
Sheets("Extension Requested").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub PT_EXT_Macro1_1()
Sheets("Extension Requested").Select
Range("A:B").Select
Application.Selection.SpecialCells(xlCellTypeConstants).Copy Destination:=Range("J5")
Range("J28:K28").Select
Selection.AutoFill Destination:=Range("J5:K28"), Type:=xlFillFormats
Range("A29:B29").Select
Selection.AutoFill Destination:=Range("A4:B29"), Type:=xlFillDefault
Range("A4:B29").Select
End Sub
I have the below code that is working just fine, however I want to eliminate the need for a formatting macro (in red) if possible. The goal is to eliminate blanks to consolidate data. This is the only way I have been able to accomplish this. All help appreciated
Sub PT_EXT_Macro1()
'
' PT_EXT_Macro1 Macro
'
'
Sheets("Pivot Table").Select
Range("B9:C32").Select
Selection.Copy
Sheets("Extension Requested").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub PT_EXT_Macro1_1()
Sheets("Extension Requested").Select
Range("A:B").Select
Application.Selection.SpecialCells(xlCellTypeConstants).Copy Destination:=Range("J5")
Range("J28:K28").Select
Selection.AutoFill Destination:=Range("J5:K28"), Type:=xlFillFormats
Range("A29:B29").Select
Selection.AutoFill Destination:=Range("A4:B29"), Type:=xlFillDefault
Range("A4:B29").Select
End Sub