If the value in Column B = "Date" as a string would
be one thing, but if it = Date as a constant for today's
date then it another thing. But going with what you posted,
Then:

Sub cut_cpy()
Dim i As Long
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
With ActiveSheet
If Range("B" & i) = "Date" And Range("C" & i & ":O" & i) _
.SpecialCells(xlCellTypeBlanks).Count = 13 Then
Range("C" & i + 1 & ":O" & i + 1).Cut _
Destination:=Range("C" & i)
End If
End With
Next
End Sub

"jeremiah" wrote:

I am trying to figure out the following....If the value of column B = "Date"
and columns C:O are empty, cut and copy the values from columns C:O in the
row directly below. Example below, the numbers in the row need to line up
with Date. The file was an imported csv file so sometimes the rows line up
and other times they don't.

Date
493,352 102.98 4,791 30.88 58,072 1,881