Macro to copy data from one specific column to another

[rexofspades]

Hi guys,

This must be super simple but I've already spent too much time on it, so I'd be grateful for any help.

All I want to do is move the data from one specific column to another until a blank cell is reached.

The names of the sheets and the columns always stay the same, so they can just be referenced.

Basically the below code works fine, I just want it to continue to do this until a black cell is reached in the source column (SalesHistory).

Sheets("PSD 205").Range("C2").Value = Sheets("SalesHistory").Range("A4").Value

Thanks so much in advance!