Macro para copiar un rango y pegar varias veces

Tengo la siguiente macro:

__________________

Sub Paste()

Dim nFilaFin As Double
Worksheets("Hoja5").Select
nFilaFin = Range("B" & Rows.Count).End(xlUp).Row
Range("b2:b32").Select
Selection.Copy
Range("b" & nFilaFin + 1).Select
ActiveSheet.Paste
End Sub

_________________

La cual copia un rango determinado y lo pega 1 vez. Quisiera saber si es posible que ese rango se pegue varias veces.