Set Cell Value to equal another cell only if it is non-blank

Hello all,

I am looking to use a macro to upload data to to file.

I want to set the cell value equal to the uploaded content only if there content is non-blank, and to ignore it if it is blank.
I have established Sheet1 as where I will paste the uploaded data initially (I have already completed this task), and using this data to update cells in sheet 2.

An example of what I'm looking to do is as follows:

If Sheets("Sheet1").Range("A1") is not blank then set Sheets("Sheet2").Range("A1") to A1 of Sheet 1....otherwise do nothing and go on to the next line of code.

Basically I want to set up a macro to update the cell values of a cell to the value of another cell, so long as this other cell is non-blank.

Many thanks.
E