Sub Macro2_CopyPasteTRANSPOSE()
'
'copy paste data and paste special Transpose, loop til end of Col A
    Range("A1:A6").Copy
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    ActiveWindow.SmallScroll Down:=8
    
    Range("A9:A14").Copy
    Range("B9").Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    ActiveWindow.SmallScroll Down:=8

'need to know how to loop - continue going down til' end of column A (

    
'disable marching ants around copied range
Application.CutCopyMode = False

End Sub