Transfer Data from one sheet to another Sheet

[fahadalambd]

Hi Everyone,

Hope you guys are well.

In the attached pics I have two sheets - "Sheet1" and "Sheet2" in the same Excel file.

I need to transfer the data on the "COUNT" Column from "Sheet1" to "Sheet2"

Thanks in advance.

 

[mumps]

Can there be more than 2 tables? Can the number of items in each table be different?

 

[fahadalambd]

Thanks for the reply.

No, now I have only 2 Tables in Sheet1.

The number of items in each table may be the same or different. For example, the data in column 1 "Ball" has 2 types in Column 2 which are "new" and "old"

I want to transfer all the data on the "COUNT" Column from "Sheet1" to "Sheet2"

 

[mumps]

This macro is based on the pictures you posted. If your actual data is organized differently, the macro won't work.

Sub CopyData()
    Application.ScreenUpdating = False
    Dim LastRow As Long, i As Long, fRow As Long, lRow As Long, srcWS As Worksheet, desWS As Worksheet, col As String: col = "C"
    Set srcWS = Sheets("Sheet1")
    Set desWS = Sheets("Sheet2")
    With srcWS
        LastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        With .Range("A1:A" & LastRow).SpecialCells(xlCellTypeConstants)
            For i = 1 To .Areas.Count
                fRow = .Areas(i).Cells(1).Row
                lRow = .Areas(i).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                desWS.Range(col & 3).Resize(lRow - fRow - 1).Value = srcWS.Range("C" & fRow + 2).Resize(lRow - fRow - 1).Value
                col = "H"
            Next i
        End With
    End With
    Application.ScreenUpdating = True
End Sub

 

[fahadalambd]

Thank you so much Genius. Appreciate a lot for your help.

You save my life! Thanks again for your enormous help

 

[mumps]

You are very welcome.