Excel - repetir instruccion macro

Tengo la siguiente macro:

Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 31/05/2008 por .
'
' Acceso directo: CTRL+l
'
Range("F10001").Select
Selection.Copy
Range("H10001").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H10002").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H10003").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H10004").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H10005").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Como la celda F10001 está referenciada a un número aleatorio cada vez que se activa la función pegar cambia de valor y por tanto el valor de H10001 es diferente al de H10002, el de H10003 es otro,...
¿Como puedo repetir esta serie hasta H10100, por ejemplo? Tened en cuenta que no puedo seleccionar de una vez H10001:H10100, ya que me saldría el mismo número en todas las celdas.

Usa una iteracion con un for...

ejemplo:

Sub Macro2()
Dim i, j as integer

i = 0
Range("F10001").Select
Selection.Copy
For i = 1 to 100
j = 10000 + i
Range( "H" & j ).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i

end sub

asi ya va a hacerlo para 100 filas, y te ahorras escribir tanto, Espero que te sirva de ayuda...