Copy filtered cells with VBA

Trying to copy from a sheet that I manually sorted to remove all entries if column "B" has a zero. When I use this code, it pastes as if it wasn't sorted.

Any thoughts?

Thanks

Sub sortpaste()


Dim LR As Long

Worksheets("Zeroes").Select


LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:B" & LR).SpecialCells(xlCellTypeVisible).Select
Selection.Copy

Worksheets("Sheet1").Select
Range("a2").Select
Selection.PasteSpecial

I changed the code to paste values

Sub Sort()


Dim LR As Long

Worksheets("Zeroes").Select


LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:B" & LR).SpecialCells(xlCellTypeVisible).Select
Selection.CopyWorksheets("Sheet1").Select
Range("a2").PasteSpecial Paste:=xlPasteVal

end sub

Hi,

SpecialCells is useless here as Range.Copy method copies only the visible cells !
But here as the logic needed is not to copy but to delete the unwanted or ? …

Is there a way to delete them?

Yes, I meant the cells contain the value "0".

Is there a way to delete the cells?

Used this code

Dim lr As Long, i As Long

Application.ScreenUpdating = False
'last row with data in column A:

lr = Range("B" & Rows.Count).End(xlUp).Row

'loop through A from bottom up and check for "0"

For i = lr To 2 Step -1 'ends at 2 assuming row 1 has headers?
    If Trim(Range("B" & i).Value)) = "0" Then Rows(i).EntireRow.Delete
    'trim removes surrounding spaces, 0 are removed
Next i

Application.ScreenUpdating = True

No prob, any thoughts as to why this code takes so long to run? It's about 15,000 lines that it looks for the zeroes in, any way to speed that up?