Find Copy and Paste

Closed
qwil Posts 1 Registration date Monday August 6, 2012 Status Member Last seen August 6, 2012 - Aug 6, 2012 at 05:32 AM
Hello,

I'm new in the forum. I need help to combine my 2 macro codes into one. Can anyone help?

The macro is written as below:
Sub UpdateSales()

Dim rc As Long

rc = Range("Date").CurrentRegion.Rows.Count

For Each C In Range("Date", "H" & rc + 1)
If C.Value = Range("B12").Value Then
With Worksheets("321")

.Range("SalesEntry").Copy
.Range(C.Offset(0, 1), C.Offset(0, 3)).PasteSpecial (xlPasteValues), Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

End With
Exit Sub
End If
Next C

End Sub

Sub UpdateOtherSales()

Dim rd As Long

rd = Range("Date").CurrentRegion.Rows.Count
For Each D In Range("Date", "H" & rc + 1)
If Range("B12").Value Then
With Worksheets("321")
.Range("OtherSales").Select
Selection.Copy
.Range(D.Offset(0, 8), D.Offset(0, 8)).PasteSpecial (xlPasteValues), Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
.Range("Deposit").Select
Selection.Copy
.Range(D.Offset(0, 16), D.Offset(0, 16)).PasteSpecial (xlPasteValues), Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

End With
Exit Sub
End If
Next D

End Sub

Thank you for the help.