checking whether a number of cells have values

If c.Value <> "" Then c.Select

runs through and finds the cells that have values. If you change it to:

If c.Value <> "" Then c.Copy

it will copy the cell with a value
if the cell has no value,

If c.Value = "" Then c.Select

the code will skip past the empty cell.