script wont copy and paste

Hi Everyone,

I have a script here that dosen't appear to be copying from sheet3 and pasting into sheet2.

Can anyone see why this might not be working?

Thanks for the help!!!

Mike

Private Sub ComboBox1_Change()

Dim r As Integer
Dim R2 As Integer

Dim c1 As Integer
Dim c2 As Integer

r = 113 + ComboBox1.ListIndex
R2 = 141 + ComboBox1.ListIndex

If r <> 76 Then
c1 = 3
c2 = 5

Set source_range = Range(Cells(r, c1), Cells(r, c2))
Set source_range = Range(Cells(r, c1), Cells(r, c2))
Sheets(3).Select

source_range.Copy

Sheets(2).Select

Set destination_range = Range(Cells(8, c1), Cells(8, c2))
destination_range.PasteSpecial xlValues

'Set source_range = Range(Cells(R2, c1), Cells(R2, c2))
'Set destination_range = Range(Cells(54, c1), Cells(54, c2))
'source_range.Copy
'destination_range.PasteSpecial xlValues

End If
Range("A30").Value = ComboBox1.Value

With Range("A30")
.Interior.ColorIndex = 3
End With

Range("a13").Select

End Sub