Macro to detect radio button selected and perform action based on selectoin

I am having an issue getting the macro to recognize my 4 radio buttons that I have on my worksheet.

This is my code as it stands right now, I am relatively new to Macro programming, so any help at all would be greatly appreciated.

Sub Submit()
If .OptionButton1("Travel Store") = 1 Then
Range("C4:D4").Select
    Selection.Copy
    Sheets("OFFICE").Select
    Range("B4:C4").Select
    ActiveSheet.Paste
Else
If .OptionButton2("Fuel Desk 1") = 1 Then
Range("C4:F4").Select
    Selection.Copy
    Sheets("OFFICE").Select
    Range("B5:E5").Select
    ActiveSheet.Paste
Else
If .OptionButton3("Fuel Desk 2") = 1 Then
Range("C4:F4").Select
    Selection.Copy
    Sheets("OFFICE").Select
    Range("B6:E6").Select
    ActiveSheet.Paste
Else
If .OptionButton4("Fuel Desk 3") = 1 Then
Range("C4:F4").Select
    Selection.Copy
    Sheets("OFFICE").Select
    Range("B7:E7").Select
    ActiveSheet.Paste
End If
End Sub

Click GO ADVANCED and use the paperclip icon to post up a copy of your workbook.

Hello Kistler,

This macro will copy the information to the other sheet when an OptionButton is selected. This macro is to be copied in the Worksheet's module for the worksheet that the option buttons are on.

Sub Sumbit2()

    Dim R As Long
    Dim Rng As Range
    Dim Wks As Worksheet
    
        Set Rng = ActiveSheet.Range("C4:F4")
        Set Wks = Worksheets("Office")
        
        Select Case Application.Caller
            Case Is = "TravelStore": R = 4
            Case Is = "Fuel1": R = 5
            Case Is = "Fuel2": R = 6
            Case Is = "Fuel3": R = 7
            Case Else: Exit Sub
        End Select
        
        Rng.Copy Destination:=Wks.Range("B" & R, "E" & R)
        
End Sub

I think the intention was for you to assign that macro to all of your radio buttons.

@LEITH, I would suggest code to "deselect" the Caller as well so that it there is no longer a radio button selected after the copy occurs.