Hi Everyone,

I am in need of copying filtered content from excel table and pasting it into another sheet below already existing data.
I am using below code but it doesn't work fine every time. The sheet where it pastes it shifts 1 row leaving a blank row after every code run.

Private Sub CopyScenario(ByVal TableName As String)

Dim TargetTable As ListObject
Dim NumberOfAreas As Long

Set TargetTable = ActiveSheet.ListObjects(TableName)

' Check
With TargetTable.ListColumns(1).Range
NumberOfAreas = .SpecialCells(xlCellTypeVisible).Areas(1).Cells.Count
Debug.Print NumberOfAreas
End With

If NumberOfAreas = 0 Then

Set ws = ThisWorkbook.Sheets("Saved Scenarios")

lrow = ws.UsedRange.SpecialCells(xlCellTypeLastCell).Row

'Pasting rows
Application.CutCopyMode = False

TargetTable.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy _
Destination:=Sheets("saved Scenarios").Range("A" & (lrow + 1))
Debug.Print lrow

End If

End Sub