Hi,
I am working on this macro where I autofilter for certain values.
When I try to select it is including the header. Can someone assist?
I am working on this macro where I autofilter for certain values.
When I try to select it is including the header. Can someone assist?
VBA Code:
Sub Purchase()
Dim LR As Long
Dim LastRow As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Sheets("MM_ACCT_AMT").Select
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$C$20").AutoFilter Field:=2, Criteria1:=">0"
Range("B1:B" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("BUY_Jrnl").Select
Range("D4").PasteSpecial Paste:=xlPasteValues
Any help would be appreciated!!!
Thank you!