Combine Multiple Columns Into One On Another Worksheet

I am trying to combine the data of 31 columns into one column on a separate worksheet. The number of pieces of data in each column is different and as a result I am hung up on how to code the macro so that it automatically moves to copying the next column when a blank cell is reached, as it currently copies until it reaches the 100th row and then moves to the next column even though they're blank.

Sub CopyColumns()

Dim improw As Long, impcolumn As Long, MyCell
Dim ws1 As Worksheet, ws2 As Worksheet
Dim improw2 As Long, impcolumn2 As Long

Application. ScreenUpdating = False
Set ws1 = ThisWorkbook.Sheets("Data")
Set ws2 = ThisWorkbook.Sheets("Details")

'paste location on ws2
improw2 = 2
impcolumn2 = 2

There are column headers for the data on ws1 in row 2. The other thing I would like to do if possible is copy these column headers from ws1 onto ws2 by pasting them to the left of each piece of data (impcolumn2 - 1).