Creating a function

I want to create a function for the following code. Is it possible?

Sheets("Sample data").Select
    Range("B6:T6").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$6:$T$500").AutoFilter Field:=10, Criteria1:=Sheets("analyst Report").Range("C2")
    ActiveSheet.Range("$B$6:$T$500").AutoFilter Field:=1, Criteria1:=">=" & r, Operator:=xlAnd, Criteria2:="<=" & s, Operator:=xlFilterValues
    Range("I6").Select
    Selection.End(xlDown).Select
    If IsEmpty(ActiveCell) = True Then
    Sheets("analyst report").Select
    Range("C3").Value = "No activity in current period"
    
    ElseIf ActiveCell.Row = 7 Then
    Range("I7").Select
    Selection.Copy
    Sheets("Analyst Report").Select
    Range("c10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sample data").Select
    Range("N7:T7").Select
    Selection.Copy
    Sheets("Analyst Report").Select
    Range("D10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Sheets("Sample data").Select
    Range("A6").Select
    
    Sheets("Analyst Report").Select
    Range("I24").Select
    
    
    ElseIf IsEmpty(ActiveCell) = False Then
    Range("I7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Analyst Report").Select
    Range("c10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sample data").Select
    Range("N7:T7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Analyst Report").Select
    Range("D10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False: