Creating a function

[rbs123]

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:

[HaHoBe]

Hi, rbs123,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Ciao,
Holger