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!
Bookmarks