Convert Rows to Columns

I need to convert this code so that it works for rows 22-78Currently it works for only one rowSub RowsToColumn()Dim RN As RangeDim RI As RangeDim r As LongDim LR As LongApplication.ScreenUpdating = FalseColumns(1).Insertr = 0