'Наприер столбец B
'Если в первой строке формула, то посчитать остальные так
Sub sad()
 Range("B1:B50").FillDown
 Range("B2:B50").Value = Range("B2:B50").Value
End Sub
'по столбцам цикл с тебя

Sub sad()
 Range("B1:B50").FillDown
 Range("B2:B50").Value = Range("B2:B50").Value
End Sub

Sub sad()
 Range("C1:C50").FillDown
 Range("C2:C50").Value = Range("C2:C50").Value
End Sub

Sub sad2()
Dim TextFormula As String
 TextFormula = "=(A1+B1)*2"
 Range("C1").Formula = TextFormula
 Range("C1:C50").FillDown
 Range("C1:C50").Value = Range("C1:C50").Value
End Sub

Sub sad()
Dim icel As Range
' Необходимо указать диапазон первой строки в которой формулы
 For Each icel In Range("C1:F1")
  With icel
   .Resize( 50 ).FillDown
   .Offset( 1 ).Resize( 49 ).Value = .Offset( 1 ).Resize( 49 ).Value
  End With
 Next icel
End Sub

Sub sad2()
Dim TextFormula( 3 ) As Variant, n As Long
Dim icel As Range

' Поочерёдно формулы для столбца
 TextFormula( 0 ) = "=(A1+B1)*2"
 TextFormula( 1 ) = "=(A1+B1)*3"
 TextFormula( 2 ) = "=(A1+B1)*4"
 TextFormula( 3 ) = "=(A1+B1)*5"
 
 n =  0 
 'Первая строка, кол-во столбцов должно быть столько же сколько формул в массиве
 For Each icel In Range("C1:F1")
  icel.Formula = TextFormula(n)
  With icel.Resize( 50 )
   .FillDown
   .Value = .Value
  End With
  n = n +  1 
 Next icel

End Sub