Thread: [Solved] Copy Paste Special Loop to End of Col A
View Single Post
 
Old 01-16-2020, 08:25 PM
ChrisOK ChrisOK is offline Windows 10 Office 2019
Advanced Beginner
  
Join Date: Sep 2016
Posts: 54
ChrisOK is on a distinguished road
Question Copy Paste Special Loop to End of Col A
Need help adding the functionality to loop through the copy/paste Special Transpose process until the end of Column A data to complete.


Code:
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
Reply With Quote