Can't get nested Loop to copy range values from 2 tables working correctly

Using your framework:

Sub TestLoop()

   Dim Ws1 As Worksheet
   Dim Ws2 As Worksheet
      
   Dim Depts As Range
   Dim Roles As Range
   
   Dim CurCell As Range
   Dim DestCell As Range
    
   Dim i As Integer
   Dim j As Long
   Dim k As Long
   Dim NumRows As Integer
         
         
   Set Ws1 = Worksheets("Source")
   Set Ws2 = Worksheets("Destination")
   Set Depts = Range("Departments")
   Set Roles = Range("Roles")
         
   
   Set DestCell = Range("B6")
   NumRows = Depts.Rows.Count
   
   
   Application.ScreenUpdating = False
          
  'starting position
    
    For i = 1 To NumRows
        For j = 1 To Roles.Count
            Ws2.Range("A1").Offset(k) = Depts(i)
            Ws2.Range("A1").Offset(k, 1) = Roles(j)
            k = k + 1
        Next j
    Next i
    
   Application.ScreenUpdating = True
       
End Sub

Hi StephenR from London

What can I say ???
That works perfectly and I can apply this to my application.
Very neat and tidy code indeed.

Thanks a million !!!


GTOL