Pull data from one workbook into another workbook

Hi,

I have thousand of data with different account numbers. Each account have more than 10 records of purchasing. I need to pull each data into different workbook based on their account no. Noted that each account no will have different workbooks. Can anyone help me to get the idea of do it.

Tq

Originally Posted by wenqq3

Hi DoodahSarsoorati, please upload a sample workbook. Thanks

Thank you..btw i already managed to solve it but now need to enhance more..I managed to split the data based on their GII5NO. Now i need to separate each GII5NO data based on their REBNO.

1. Each GII5NO will split into different workbook
2. In each workbook it will split into different tabs according to REB1,REB2, and REB3.

Here is my attachment.

Originally Posted by wenqq3

Sub split_REB()
    Dim wsName As String
    Dim startRow As Integer
    lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:N" & lastRow)
        .Header = xlYes
        .Orientation = xlTopToBottom
        .Apply
    End With

    For i = 1 To lastRow
        If Cells(i, 5) <> Cells(i + 1, 5) And Not IsEmpty(Cells(i + 1, 5)) Then
            wsName = Cells(i + 1, 5)
            startRow = i + 1
            Range("A1:N1").Copy
            Sheets.Add
            ActiveSheet.Name = wsName
            ActiveSheet.Paste
            Range("A2").Select
            Sheets("Sheet1").Select
        End If
        
        If Cells(i + 1, 5) <> Cells(i + 2, 5) Then
            Range("A" & startRow & ":N" & i + 1).Select
            Selection.Copy
            Sheets(wsName).Select
            ActiveSheet.Paste
            Sheets("Sheet1").Select
        End If
    Next i
End Sub

Call this when you split data to new workbook

Its really help me yeayy..it run exactly like what i want..TQ so much u save my life :D