worklist generator macro

[oliverraaijmakers]

Hello there,

I am trying to create a (macro) worklist-generator, which should create a list of activities for every deliverable that needs to be done.
The input "deliverable" is a list of numbers which can vary from 1 cell value, up to 50 (in the same column, below eachother). An empty cell indicates the end of the list.
The input "activities" is a list of teksts which can vary from 1 cell value, up to 25 (in the same column, below eachother). An empty cell indicates the end of the list.
The output should be a list of two columns (deliverable and activity), with all combinations of deliverables and activities listed below eachother.

Can anyone help me with a macro that can do this?

 

[vaskov17]

Deliverables in Column A
Activities in Column B
results will be in Columns D & E

Sub Macro()
    Dim rDeliverables As Range
    Dim rActivities As Range
    Dim c As Long
    Dim rDeliverable As Range
    Dim rActivity As Range
    
    Set rDeliverables = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    Set rActivities = Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
    
    Range("D:E").ClearContents
    c = 1
    For Each rDeliverable In rDeliverables
        For Each rActivity In rActivities
            Range("D" & c) = rDeliverable
            Range("E" & c) = rActivity
            c = c + 1
        Next
    Next
End Sub