Sub q()
'
' q Macro
'
' Keyboard Shortcut: Ctrl+q
'
ActiveCell.Range("A1:AD1").Select 'expand the selection to the right so that it has 30 columns and 1 row
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select 'select more rows as if you had pushed ctrl+shift+down
ActiveCell.Range("A1:AD12").Select 'select 30 columns and 12 rows
ActiveSheet.Paste 'paste the 1x30 copied range into the 12x30 selected range -- repeating the data in each row
Selection.End(xlDown).Select 'select the last (probably 12th) cell in the column where you started
End Sub