If Then Function in VBA Loop

[Lauren123]

Hello! I have the next code and is working but i would like to make it a loop, for every single cell there is with information.

Sub Internet()


If Sheets("Draft").Range("G7").Value2 = "INT1" Then
Sheets("U-Detail").Range("R11").Value2 = Range("'GL Accounts'!B1").Value2 & Sheets("Draft").Range("D7").Value2
Else
Sheets("U-Detail").Range("R11").ClearContents
End If


End Sub

On Draft.G7 sometimes it may be more values below and i would like to do the same until the last row.


If anybody could help i would be really grateful!

 

[Fluff]

Where do you want to put the other values? will it be R11, then R12 etc?

 

[Lauren123]

Yes!

 

[Fluff]

Maybe

Sub Internet()

Dim Cl As Range
Dim Rw As Long

Rw = 11
With Sheets("Draft")
   For Each Cl In .Range("G7", .Range("G" & Rows.Count).End(xlUp))
      If Cl.Value = "INT1" Then
         Sheets("U-Detail").Range("R" & Rw).Value = Range("'GL Accounts'!B1").Value & Cl.Offset(, -3).Value
         Rw = Rw + 1
      Else
         Sheets("U-Detail").Range("R11").ClearContents
      End If
   Next Cl
End With


End Sub

 

[Lauren123]

WOW! It worked! Thanks!!

 

[Fluff]

Glad to help & thanks for the feedback