Sub All_Info()

Call Tab_To_Be_Activated_025
Call Range_Example_025
Call Tab_To_Be_Activated_050
Call Range_Example_050
Call Tab_To_Be_Activated_056
Call Range_Example_056
Call Tab_To_Be_Activated_100
Call Range_Example_100

End Sub


Sub Tab_To_Be_Activated_025()
Sheets("025").Activate
End Sub


Sub Range_Example_025()
    With Range("A4:A100")
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With
    Application.CutCopyMode = False
End Sub




Sub Tab_To_Be_Activated_050()
Sheets("050").Activate
End Sub
Sub Range_Example_050()
    With Range("A4:A100")
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With
    Application.CutCopyMode = False
End Sub


Sub Tab_To_Be_Activated_056()
Sheets("056").Activate
End Sub


Sub Range_Example_056()
    With Range("A4:A100")
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With
    Application.CutCopyMode = False
End Sub




Sub Tab_To_Be_Activated_100()
Sheets("100").Activate
End Sub


Sub Range_Example_100()
    With Range("A4:A100")
        .Cells.Copy
        .Cells.PasteSpecial xlPasteValues
        .Cells(1).Select
    End With
    Application.CutCopyMode = False
End Sub