try this.
test on a backup of your file.


[vba]
Sub cons_ws()

Dim ws As Worksheet, wsMaster As Worksheet
Dim LR As Long, ws_LR As Long, wsM_LR As Long, avgF19 As Double

With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
Set wsMaster = Worksheets("Model Engine")

wsM_LR = 4
For Each ws In Worksheets
If UCase(ws.Name) <> UCase(wsMaster.Name) Then
With ws
avgF19 = .Range("F19")
LR = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
ws_LR = .Range("A1:Q" & LR).Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
.Range("F6").Copy Destination:=wsMaster.Cells(wsM_LR + 1, "D")
.Range("F8").Copy Destination:=wsMaster.Cells(wsM_LR + 1, "E")
wsMaster.Cells(wsM_LR + 2, "E") = avgF19
.Range("D25:S" & ws_LR).Copy Destination:=wsMaster.Cells(wsM_LR + 1, "F")
End With
End If
wsM_LR = wsMaster.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Next ws

Set wsMaster = Nothing
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With

End Sub
[/vba]