Copy Data From Multiple Worksheets & enter into a Single Worksheet

[gsimoni]

Can anyone please help me with this:
I would like to copy data from 720 worksheets (from cell "C8" and "A3") and populate that data in a single worksheet.
Someone helped me before with this, but I cannot find the thread anymore.
Thank you before hand.

 

[Jacko1307]

your previous posts show this code you can change the cell references

Const stName As String = "A2"
 Const stEmail As String = "D8" 
 Sub Example() 
     Dim ws As Worksheet, wsOutput As Worksheet 
    Dim rgList As Range          Application.ScreenUpdating = False          
Set wsOutput = ThisWorkbook.Worksheets.Add     Set rgList = wsOutput.Range("A1") 
         For Each ws In ThisWorkbook.Worksheets 
        If wsOutput.Name <> ws.Name Then             
With rgList                 .Value = ws.Range(stName)                 .Offset(0, 1).Value = ws.Range(stEmail)
             End With             Set rgList = rgList.Offset(1, 0)         
End If     Next ws          Application.ScreenUpdating = True          
Set wsOutput = Nothing     
Set ws = Nothing     Set rgList = Nothing      
End Sub

[//Code]

 

[kevatarvind]

try below code this code will add new Sheet in your file with name "Result" where all A3 And C8 Cell Value Will Paste A and B Column from all sheets

Sub CopyCell()
Dim ws As Worksheet
Sheets(1).Select
Sheets.Add.Name = "Result"
Sheets(2).Select
For Each ws In ThisWorkbook.Worksheets
Range("A3").Copy Sheets("Result").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Range("C8").Copy Sheets("Result").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
Next ws
Sheets(1).Select
Range("A1").EntireRow.Delete
End Sub