Copiar las mismas celdas de hojas diferentes de un libro y pegarla en otra hoja del libro

Hola buenos días,

Necesito leer los datos de varias celdas no contiguas en varias hojas de un libro, y llevarlos a una tabla organizada en otra hoja cualquiera en el mismo libro de manera consolidada. La idea es extraer los datos de la primera hoja, llevarlos a una tabla, leer la segunda hoja y poner la información a continuación en la tablay así sucesivamente hasta terminar todas las hojas, éstas pueden variar entre un mínimo de 3 hasta 70 de máximo.

Revise un código que me funciona para una sola hoja, la ayuda seria automatizarla para hacerlo para varias hojas, agradezco la colaboración. A continuación el código que utilice:

Private Sub comandbutton1_Click()
Worksheets("HOJA2").Range("B2").Copy
Worksheets("CONSOLIDADO").Range("B2").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Worksheets("HOJA2").Range("I15").Copy
Worksheets("CONSOLIDADO").Range("C2").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Worksheets("HOJA2").Range("I23").Copy
Worksheets("CONSOLIDADO").Range("D2").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Worksheets("HOJA2").Range("I33").Copy
Worksheets("CONSOLIDADO").Range("E2").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Worksheets("HOJA2").Range("I35").Copy
Worksheets("CONSOLIDADO").Range("F2").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Worksheets("HOJA2").Range("I36").Copy
Worksheets("CONSOLIDADO").Range("G2").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Worksheets("HOJA2").Range("I37").Copy
Worksheets("CONSOLIDADO").Range("H2").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End Sub

Gracias, hasta pronto