Macro copy data from multi sheets to other sheet

[ste33uka]

Hi would any on have a macro code that would copy data from sheets 6,7,8,9,10 cells A70 to F130 to the next available row on a sheet called 'DATA'
My sheet names are just 6,7,8,9,10
Thanks

 

[Fluff]

How about

Sub ste33uka()
   Dim i As Long
   
   For i = 6 To 10
      Sheets(CStr(i)).Range("A70:F130").Copy Sheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
   Next i
End Sub

 

[ste33uka]

How about

Sub ste33uka()
   Dim i As Long
  
   For i = 6 To 10
      Sheets(CStr(i)).Range("A70:F130").Copy Sheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
   Next i
End Sub

Thanks again fluff, thats perfect

 

[Fluff]

Glad to help & thanks for the feedback.

 

[ste33uka]

Glad to help & thanks for the feedback.

Is it possible marco would only copy data from sheets based on a cell value ?
example
sheet1.cell Z1 = yes ,data could copy to sheet called data
sheett2.cell Z2 = no , data would copy to sheet called nodata
Thanks

 

[Fluff]

How about

Sub ste33uka()
   Dim i As Long
   
   For i = 6 To 10
      With Sheets(CStr(i))
         If LCase(.Range("Z1").Value) = "yes" Then
            .Range("A70:F130").Copy Sheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
         Else
            .Range("A70:F130").Copy Sheets("NoData").Range("A" & Rows.Count).End(xlUp).Offset(1)
         End If
      End With
   Next i
End Sub

 

[ste33uka]

How about

Sub ste33uka()
   Dim i As Long
  
   For i = 6 To 10
      With Sheets(CStr(i))
         If LCase(.Range("Z1").Value) = "yes" Then
            .Range("A70:F130").Copy Sheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1)
         Else
            .Range("A70:F130").Copy Sheets("NoData").Range("A" & Rows.Count).End(xlUp).Offset(1)
         End If
      End With
   Next i
End Sub

Thanks but i might need to add other sheet options
would you have code for say
sheet1.cell Z1 = yes ,data could copy to sheet called data
sheett2.cell Z1 = no , data would copy to sheet called nodata
sheet3.cell Z1 - maybe, data would copy to sheet called maybe

 

[Fluff]

Just add an elseif

 

[ste33uka]

Just add an elseif

Not sure how to do that, ill give it ago

 

[Fluff]

Ok, if you get stuck, just post what you've tried.