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