Hello,
I have set up a macro to filter entire row to another sheet if certain criterias are met.
This works like a charm, BUT:
When it pastes the row to the destination sheet, it always leaves a blank row between it and the previous (in destination sheet).
Is this possible to fix somehow?
Example:
In destination sheet the next avilable row is 11
However, the content is added on row 12, leaving row 11 blank.
Here is the code:
Sub InboxAutoFilterNorway()
Dim LR As Long
Range("C4").EntireRow.Insert Shift:=xlDown
LR = Sheets("Inbox").Cells(Rows.Count, "C").End(xlUp).Row
LR1 = Sheets("Norway").Cells(Rows.Count, "A").End(xlUp).Row + 1
With Sheets("Inbox").Range("C4:C99" & LR)
.Autofilter
.Autofilter Field:=1, Criteria1:="Norway", _
Operator:=xlOr, Criteria2:="Norway"
.SpecialCells(xlCellTypeVisible).EntireRow.Copy Destination:=Sheets("Norway").Range("A" & LR1)
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub
Bookmarks