Array with formulas

[Darren Smith]

Hi All

My array below works fine except it will not transfer any of my formulas??
Can somebody tell me why?

Private Sub Body_Type_Change()

TurnOff

Dim wsSource  As Worksheet, wsDest As Worksheet
Dim Arr As Variant
Dim i As Long
Dim cmb As ComboBox
Dim RowCount As Long, ColumnCount As Long

Set wsSource = ThisWorkbook.Worksheets("Tippa Body Groups")
Set wsDest = ThisWorkbook.Worksheets("Job Card Master")
Set cmb = Me.Body_Type

Select Case cmb.Value

Case ("Tippa")
Arr = wsSource.Range("A13:O299")

Case ("Tippa with STD Cage")
Arr = wsSource.Range("Q13:AE299")

End Select
For i = LBound(Arr, 1) + 1 To UBound(Arr, 1)
       Arr(i, 1) = Arr(i, 1)
       Next i
        
      RowCount = UBound(Arr, 1)
      ColumnCount = UBound(Arr, 2)
      wsDest.Range("A13").Resize(RowCount, ColumnCount).Value = Arr
      
      
       TurnOn
       
End Sub

 

[mart37]

Maybe: Arr = wsSource.Range("A13:O299").Formula

 

[Darren Smith]

Thanks for your reply
It brings the formulas over but does not show the result in the cells??

 

[mart37]

wsDest.Range("A13").Resize(RowCount, ColumnCount).Formula= Arr

 

[Darren Smith]

Thanks, it`s worked fine