You are close, simply remove Range
from this line:
Sheets(1).Range(Cells(CritRow, Trip_point)).Copy
So that it looks like this:
Sheets(1).Cells(CritRow, Trip_point).Copy
Also, I'd recommend not using Active
or Select
statements. For example your 4 lines of code to copy and paste could look like this instead:
Sheets("Critical Signals").Range("E4") = Sheets(1).Cells(CritRow, Trip_point)