Sub Macro1()
Dim Delig As Long, Dercol As Long, i As Long
Dercol = Sheets("Question 1").Cells(6, Columns.Count).End(xlToLeft).Column
With Sheets("Rep1")
.Range(.Range("A4"), .Range("A4").End(xlDown)).ClearContents
End With
For i = 1 To Dercol
With Sheets("Question 1")
Derlig = .Cells(Rows.Count, i).End(xlUp).Row
.Range(.Cells(7, i), .Cells(Derlig, i)).Copy Sheets("Rep1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
Next i
End Sub