Lookup Function

Hi Jens

Again, thanks for help with this. I have adapted the macro and data to fit what I have, but essentially its very similiar. However, my questions are:

1. If the data looked similiar to the below, how could I create a running total formula for the vba output. The trick is that the Running Total differs because numbers associated with the dates drop off and can cross months ie

Start End Total Cum Total
01/07/2015 31/07/2015 100 100
03/07/2015 10/07/2015 300 400
08/07/2015 15/07/2015 100 500
11/07/2015 12/07/2015 200 400
16/07/2015 25/07/2015 100 200

2. What if the data is on 1 worksheet, yet I want the results to populate in to another worksheet. I am experiencing the following error, when I try to amend this:

'Run-time error 110041: Selected method of Range class failed.' **This relates to dRange.Select**

Sub TestH078()

Dim dRange As Range
Dim rngCell As Range
Dim lRow As Long
Dim lBlank As Long


Set dRange = Worksheets("MTS DATA").Range("a1").CurrentRegion.Columns("I")
dRange.Select

For Each rngCell In Selection
iRow = iRow + 1
If rngCell.Text = Range("A1") Then
Range("A" & iRow, "L" & iRow).Copy
lBlank = Worksheets("WIP").Range("C1").CurrentRegion.Rows.Count + 1

Range("C" & lBlank).Select
ActiveSheet.Paste
End If
Next rngCell

Application.CutCopyMode = False




End Sub

Any help would be much appreciated, thank you.

Adrian