Setting a range

[pnmng49]

Hi everyone,

Here is what I am trying to do:
Set a range to be from the first occurence of a value in col A to the last occurence of that same value in col A (offset three columns to the right).

I have started with code by Ron DeBruin found here:
http://msdn.microsoft.com/en-us/libr...omAllWorkbooks

The instructions say:
' Change this range to fit your own needs.

With mybook.Worksheets(1)
Set sourceRange = .Range("A1:C1")
End With

How do I change this if I need to merge from 10 workbooks and the sourceRange needs to be from the FirstOccurence in col A of a user input date to the LastOccurence in col A of that same user input date (offset 3 columns to right) ??

Thanks for the help.