How can I put these 2 VBA codes Together?

[rdvance]

Sub ClickFirst()
With ActiveSheet.Buttons(Application.Caller).TopLeftCell
If .Column > 8 Then Cells(.Row - 6, .Column - 8).Select
End With
End Sub

Sub BotWorm()


With ActiveCell.Offset(1, 0).End(xlDown).Offset(1, 0)
.Value = Format(Date, "d mmm ")
.Offset(0, 1).Value = "VETERINARY CARE / BOT & WORM DRENCH"
.Offset(0, 7).Value = "30.00"
End With


End Su

 

[Chip Pearson]

Just call the BotWorm macro from within the ClickFirst macro.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com