Copy From To Macro Need Help With Adjustment

[timbo1957]

Hi

This macro works fine for one filtered number i.e. it will copy all of the rows fom the download sheet where there is a number in column A which is equal to 60134000.

The problem I have is that some customers have 10 + account numbers and after it has copied all of the 60134000 numbers from the download sheet to the Cust1 Sheet I want it to drop down a row on the Cust1 sheet and copy all of the 280116000 numbers underneath that and then the next and the next up to a maxium of say ten numbers.

The start point on both sheets is A4.

Sub CONSIGNMENT_STOCK02()
    Dim InSH As Worksheet
    Dim OutSH As Worksheet
    Dim i As Long
    
    Set InSH = Sheets("Download") ' Source Sheet
    Set OutSH = Sheets("Cust1") 'Destination Sheet
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    OutSH.Range("A4:H55000").ClearContents ' Source Range
    
    With Intersect(InSH.UsedRange, InSH.Columns("A")) 'Source Column
        .AutoFilter 1, "60134000"
        .Offset(1).EntireRow.Copy
        OutSH.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
        .AutoFilter
    End With
    
    Application.CutCopyMode = False
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
End Sub

[arlu1201]

Do you have a sample file that you can attach?