Boa Tarde Pessoal,

Gostaria de pedir ajuda de vcs para resolver um problema em um código do VBA.
Estou Aprendendo a programar no VBA, então perdoem se por acaso parecer coisa muito atoa .
O erro é que as Formulas são copiadas apenas para a Primeira linha, gostaria que fossem copiadas a todas as células que
que fazem parte da região corrente.
Desde Já Agradeço pela Ajuda!
o Código é este:

Sub Macro4()
'
' Macro4 Macro Para Copiar Fórmulas em Células Relativas
'

'
Sheets("INFO").Select
Range("B16").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

Dim Celulas As Range
Set Celulas = Selection.CurrentRegion
Range(Celulas.Address).Offset(4, 1).Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Range("A1").Select

End Sub