Copying/Pasting range of cells based on criteria

[squnibi]

This seems like a pretty easy thing to do.

I need to copy a range of cells in two columns into another sheet. The issue is that I only want the range with values in column C to be pasted. Here's the current code:

Sheets("Sheet1").Activate
Range(Range("B2"), Range("B2").End(xlDown)).Copy
ThisWorkbook.Sheets("PPI").Range("Q16").PasteSpecial xlPasteValues, Transpose:=True
Range(Range("C2"), Range("C2").End(xlDown)).Copy
ThisWorkbook.Sheets("PPI").Range("Q18").PasteSpecial xlPasteValues, Transpose:=True

The problem that I am having is that the selection range is wrong when there is blank data. Basically, in column C i have some numbers and in column B i have dates. There are times when there are no values in column C but the dates will still show. If this is the case, then the range should start when the first value is found in column C.

This may sound confusing so if you need more clarification, please ask.

Thanks in advance!