I would refactor the entire Routine thusly
Sub SamT_CashMIS()
Dim Col 'Variables not explicitly Typed are of Type Variant
Dim Fut_Clr 'Variants are required for Array operations
Dim STL
Dim NR As Long 'NR stand for Next Row
With Sheets("CASH")
Col = .Range("E5:G5").Value 'Sets variable to an array of values
Fut_Clr = .Range("E6:G6").Value
STL = .Range("E7:G7").Value
End With
With Sheets("CASH FAILS MIS")
NR = .Cells(Rows.Count, "B").End(xlUp).Row + 1
.Cells(NR, "A").Value = Date
.Cells(NR, "B").Resize(, 3) = Col 'Resize(Rows, Columns) makes the Range Rows tall and Columns Wide
.Cells(NR, "E").Resize(, 3) = Fut_Clr 'Resize is required to Let Range = Values Array
.Cells(NR, "H").Resize(, 3) = STL
End With
End Sub