Trying to find a value in a column, then select a range in that row to delete VBA

So I am working on a project where I need to find a UserForm ComboBox value on a worksheet, then select the range from that value (in Column A) to Column AD, then delete that selection and shift the cells up. Right now I have code to find the value but I can't figure out how to select that range of cells to delete. I am using this to find the value from the ComboBox.

custid = cbo_customerid.Value

If Trim(custid) <> "" Then
With Sheets("Optimization Data").Range("A:A")
Set custidopti = .Find(What:=custid, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

So from this cell I need to select the entire row to AD to delete. Any help would be great!

Thanks!