How to copy cell formats from a sheet

In a macro, I am copying data from another sheet and most of the time I only require the actual data or the values as per below.

.Offset(1, 0) = Worksheets("Main").Cells(7, 3).Value

But sometimes I want to also copy the Formats of the cell eg. color etc.
How do I go about doing this please?