Adjusting UserForm VBA

[ultracyclist]

I’m using the following code in a User Form to copy values to set a cell range based on the location. I would like to adjust the code to copy the value to different cells based on the date listed in my date box and the location selected from my combo box.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>Example: If the region Texas was chosen from my combo list and the date said 9/15/11 in the date box, it would copy the value from F120 to B131.<o></o>
If the region Texas was chosen from my combo list and the date said 10/1/11 in the date box, it would copy the value from F120 to B132.<o></o>
This process would repeat all the way down to row B148. The dates used are the 1<SUP>st</SUP> and 15<SUP>th</SUP> of each month through May 2012.
<o></o>
I would also need the code to follow the same example above for the other locations listed. The only difference is the cell range.
<o></o>
Example: Connecticut would be my next range and would need to copy from F121 to E131 thru E148.
<o></o>
Once I have an understanding of how the first two are created, I can go back and duplicate the code for the remaining locations.

[SIZE=3][FONT=Calibri]Option Explicit[/FONT][/SIZE]
 
[SIZE=3][FONT=Calibri]Private Sub cmdCopyValue_Click()[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]If cboLocation.ListIndex <> -1 Then[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Worksheets("Monthly Data").Range("F" & cboLocation.ListIndex + 120).Copy Worksheets("Monthly Data").Range("B" & cboLocation.ListIndex + 130)[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Worksheets("Monthly Data").Range("B" & cboLocation.ListIndex + 130).Value = Worksheets("Monthly Data").Range("B" & cboLocation.ListIndex + 130).Value[/FONT][/SIZE]
 
[SIZE=3][FONT=Calibri]End If[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]End Sub[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Private Sub DTPicker1_Click()[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Me.TextBox1.Value = DTPicker1.Value[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]End Sub[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Private Sub UserForm_Click()[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]End Sub[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]Private Sub UserForm_Initialize()[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]cboLocation.List = Worksheets("Monthly Data").Range("A2:A8").Value[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]End Sub[/FONT][/SIZE]
[SIZE=3][FONT=Calibri]<o:p>[/FONT][/SIZE]

</o>
<o></o>
I'm using a macro button inside my Userform to perform the copy function.

Any thoughts would be greatly appreciated.

Thanks,

Allen