Copy and Paste Formula: Bypassing the Clipboard

Hi All,

I'm trying to copy formulas (with formulas in A1:A5) into a new cell range. The code is not executing? What am i doing wrong??? Thanks.

Sub CopyFormula(rngSource As Range, rngTarget As Range)
  
     rngTarget.Resize(rngSource.Rows.Count, rngSource.Columns.Count).Formula = rngSource.Formula
    
End Sub
 
Sub UpdateCopyFormula()
 
    Sheet1.Activate
     Call CopyFormula(Sheet1.Range("A1:A5"), Sheet1.Range("B1"))
     
End Sub