Trying to consolidate data from several sheets into one

[Ivn68]

Need to run a loop that takes data from one sheet and put the data onto another.

Sooo on the new sheet

C3=B5
D3=C5
E3=D5
F3=E5

C4=H5
D4=I5
E4=J5
F4=K5

C5=N5
D5=O5
E5=P5
F5=Q5

...

C16=CN5
D16=CO5
E16=CP5
F16=CQ5

Left hand side is new sheet and right hand side is like worksheet1

All in the same workbook

Any help would be greatly appreciated

 

[AndyMachin]

The basic code to do that:
C3=B5

Sheets("SheetName2").Range("C3").Value = [/COLOR][COLOR=#333333]Sheets("SheetName1").Range("B5").Value[/COLOR][COLOR=#333333]
[/COLOR]

 

[Ivn68]

There is a lot of data want to try to run a loop
To move all the data to one sheet

 

[AndyMachin]

I am not sure if a loop is what you need. It would be better if I can take a look at your workbook and see whats inside.. try to upload the file or a screenshot

 

[Ivn68]

I took a picture but how do I post it in this forum?

 

[Ivn68]

Sheets("CD").range(cells(2+x,3+x)).value=sheets("pit 1").range(cells(5,2+x6)).value

I get application defined or object defined error

 

[AndyMachin]

That's not a proper reference. You don't really need a loop, but maybe something like this:

Sub ThisCode()
Dim Sht1 As Worksheet
Dim Sht2 As Worksheet
    Set Sht1 = Sheets("Pit 1")
    Set Sht2 = Sheets("CD")


    With Sht2
        .Range("C3").Value = Sht1.Range("B5").Value
        .Range("D3").Value = Sht1.Range("C5").Value
        .Range("E3").Value = Sht1.Range("D5").Value
        .Range("F3").Value = Sht1.Range("E5").Value
        'keep going here (copy and paste, then manually adjust the cells)
    End With
End Sub

 

[Fluff]

Another option is like

Sub copyVal()
   Sheets("Sheet2").Range("C3:F3").Value = Sheets("Sheet1").Range("B5:E5").Value
   Sheets("Sheet2").Range("C4:F4").Value = Sheets("Sheet1").Range("H5:K5").Value
End Sub