VBA Out of Stack Space Error 28

That code can be reduced to this.

Sub Macro1()
'
' Macro1 Macro
' Texas Windstorm
'

'
    Sheets("Damage Ratios").Range("ScenarioData[[1. Affected Area]:[1. Damage Ratio]]").Copy Sheets("Calculator").Range("E19")
End Sub