Excel - Macros

Hola dese se encuentren bien no se si recuerden que solicite apoyo para dos macros ya hice una completa con la ayuda de uno de los compañeros de foro la adapte y ya funciono correcta, el codigo es el que abajo les anexo, pero ahora la otra situacion es la siguiente, necesito si les es posible que alguien me ayude ahora necesito que haga lo mismo de las hojas que las vaya creando y dando valores aleatorios pero ahora una por una.

Sub Tests()
'
' Macro3 Macro
' Macro grabada el 16/01/2007 por Ma. del Carmen Ramírez Pérez
'
' Acceso directo: CTRL+m
'

Dim ws As Worksheet
Dim t As Single
Dim s As Single

't = Timer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For k = 1 To 11
Worksheets("Hoja").Copy After:=Worksheets("Hoja")

Next k

For Each ws In ActiveWorkbook.Sheets

ws.Activate
[A1].Select
[A1] = "=Rand()"
Selection.AutoFill Destination:=Range("A1:A7000")
[A1:A7000].Select
Selection.AutoFill Destination:=Range("A1:M7000")
[A1].Select
Next

Application.ScreenUpdating = True

Set ws = Nothing

's = Timer

MsgBox t
Application.Calculation = xlCalculationAutomatic

End Sub


Gracias por todo