```
Sub Link()

    Dim Turbidity As Long
    Dim RawTurbidity As Range

    'Sets variables Turbidity being the ActiveCell and RawTurbidity referring to the last captured cell in raw sheets'
    Turbidity = ActiveCell.Row
    Set RawTurbidity = Sheets("Raw Data").Range("C4").End(xlDown)

    'The formula assigning the last captured cell in Raw sheets to the active cell '
    Sheet1.Range(Sheet1.Cells(Turbidity, 4), Sheet1.Cells(Turbidity, 4)).Formula = RawTurbidity

End Sub

```

So this is the code I have and currently it does what it's suppose to do. We have two sheets atm sheet1 and Raw Data An instrument spits out data into column C of Raw data starting wtih C4 and going all the way down. The current code I wrote in essence paste the newest value the instrument spits out to the active cell in sheet1. I have a code on Raw Data that runs the macro only when a change is made to column C4 and lower. And it works exactly how I want it to however...

my question or issue is that when I add activecell.offset(1,0).select in order to have the activecell automatically go to the next row in sheet1 without me moving the mouse the macro copies and paste the same data into the next 4 cells. If I have the intrument spit out the data again than this time it occupies the next 6 rows with the same data.