Please help in creating this macro...

[rcdgreat]

I want to create a macro that scans column A for text equal to "Sample1" and then copy the row containing that value to another sheet after that it would scan again column a but this time its for text equal to "Sample2" and then again copy the row containing that value and pasting it to the end of the last row for "Sample1" then again for "Sample3", "Sample4" etc.

Thank you very much in advance.

 

[texasalynn]

Welcome to MrExcel board....

Sub SampleCopy()
Dim LR As Long, i As Long, ALR As Long
'
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    Set rFound = Columns(1).Find(What:="Sample" & i, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False _
        , SearchFormat:=False)
    If rFound Is Nothing Then GoTo 0
    rFound.Activate
    ActiveCell.EntireRow.Copy
    Sheets("Sheet2").Activate
    ALR = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A" & ALR).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("Sheet1").Activate
0
Next i
End Sub