I have few models like this below for diferent tools i manage. I am trying to clean/improve the code... Could you help me?All the informations comes inside columns B to N, and the column P concatenate it with ;. There are 6 sheets i do the same thing.Any ideas to have a better performance and cleaner code?Private Sub bov_mobile()Sheets(Mobile).SelectColumns(p).Clearfim = Cells(Rows.count, 1).End(xlUp).RowFor i = 2 To fimRange(A & i).Select    If ActiveCell.Offset(0, 14).Value = BOV Or ActiveCell.Offset(0, 14).Value = BOV BMF Then        Range(P & i).FormulaR1C1 = =RC[-14]&;&RC[-13]&;&RC[-12]&;&RC[-11]&;&RC[-10]&;&RC[-9]&;&RC[-8]&;&RC[-7]&;&RC[-6]&;&RC[-5]&;&RC[-4]&;&RC[-3]&;&RC[-2]&;        Range(P & i).Copy        Selection.PasteSpecial Paste:=xlPasteValues        Application.CutCopyMode = False    End IfNext i    ' ###############  ORDER BY    Range(p2, Cells(Rows.count, 16).End(xlUp)).Select    Selection.Sort Key1:=Range(P2), Order1:=xlAscending, Header:=xlGuess, _    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _    DataOption1:=xlSortNormalRange(P2, Cells(Rows.count, 16).End(xlUp)).CopySheets(Mod_Bov).SelectCells(Rows.count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValuesEnd Sub
Trying to make more simple VBA
excel;vba