En partant du principe qu'il n'y a qu'une seule valeur par colonne:
Sub report()
Dim i As Integer
Dim j As Integer
For i = 2 To 6 'ligne 2 à 6
For j = 3 To 22 'colonnes C à X (3 à 22)
If Cells(i, j) <> "" Then 'si la cellule n'est pas vide
Cells(9, j) = Cells(i, j) 'on inscrit les valeurs de C9 à X9
End If
Next j
Next i
End Sub