Visual Basic

Closed
mcculloch1dj Posts 3 Registration date Tuesday March 24, 2015 Status Member Last seen March 26, 2015 - Mar 25, 2015 at 12:16 AM
I've been able to use the string below to copy rows to sheet 2 by selecting value ("5064") in Column G, sheet 1. I need to select more than one value ("5066, 5067") is also required, this also needs to copied over to sheet 2.

Application.ScreenUpdating = False
With Worksheets("Sheet1")
.Columns("G").AutoFilter field:=1, Criteria1:="5064"
.UsedRange.SpecialCells(xlCellTypeVisible).Copy _
Destination:=Worksheets("Sheet2").Range("A1")
End With
With Worksheets("Sheet2")
.Columns("G").Cut
.Columns("A").Insert
.Select
End With
Worksheets("Sheet1").AutoFilterMode = False
Application.ScreenUpdating = True