Macro Help

[kishengiggs1]

Hi all,

I am new at Macros. I just need a little help on automating a process that I usually do manually. I am sure its a very simple macro but any help will be appreciated.

I would like the macro to

check if column AB=1 or 2, on "Sheet1" then copy the whole row for that column and paste in on a diff worksheet called "Sheet2"

thanks
Kishen

 

[ZAX]

This Code Will Copy The Rows But Make Sure To Select Sheet1 Before Running The Macro

Sub CopyRow()
Dim LR As Long
LR = Cells(Rows.Count, 28).End(xlUp).Row
For Each Cell In Range("AB1:AB" & LR)
    If Cell.Value = 1 Or Cell.Value = 2 Then
       Cell.EntireRow.Copy
       Sheets("Sheet2").Select
       If Range("A1") = "" Then
          Range("A1").PasteSpecial
          Application.CutCopyMode = False
       Else
          Range("A" & LR + 1).PasteSpecial
          Application.CutCopyMode = False
       End If
    End If
    sheets("sheet1").select
Next
End Sub

ZAX