Snasui Excel Forum

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("I5").Select
    Do Until ActiveCell.Offset(0, -8).Value = ""
    
    If ActiveCell.Offset(0, -2).Value = "SAS Support" Then
    
    'Do While ActiveCell.Offset(0, -2).Value = "SAS Support"
    'Range("I5:AK5").Select
    Range(Cells(5, 9), Cells(5, 37)).Select
    Selection.Copy
  
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        'Else: ActiveCell.Offset(1, 0).Select
        End If
        ActiveCell.Offset(1, 0).Select
        
        Loop
        
End Sub

Code: Select all

'Other code...
    Range("I5").Select
    Do Until ActiveCell.Offset(0, -8).Value = ""
    
    If ActiveCell.Offset(0, -2).Value = "SAS Support" Then
    
    'Do While ActiveCell.Offset(0, -2).Value = "SAS Support"
    'Range("I5:AK5").Select
    ActiveCell.Resize(1, 29).Copy
    'Other code...