Copy range and skip blanks from one workbook to another using tables.

[Kernst650]

Hello,

I'm trying to copy a range of cells into a table. I want the code to skip blanks, and only enter the cells with information in them. However it keeps pasting all six rows, generally only the top line has information on it. This code works perfectly for what I'm doing, with the exception of the pasting issue. Any help would be appreciated, thank you.

Sub copytoinventory()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet


Set copySheet = Worksheets("Enter Dispo Form Info Here")
Set pasteSheet = Worksheets("Inventory")


copySheet.Range("B2:J7").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAllUsingSourceTheme, SkipBlanks:=True
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub