Looking for Excel VBA Coder - Please download Instructions

I'm Looking for Excel VBA Coder Who can use Teamviewer to work on my sheets. Please quote me a price. The Codes that I require are pretty simple, with a 10 steps example below that I'm currently using: Sub StepOne_CopyF3DownPasteAR4() Range("F3", Range("F3").End(xlDown)).Copy Range("AR4") End Sub Sub StepTwo_SelectRangeFromAR4Down() Range("AR4", Range("AR4").End(xlDown)).Select End Sub Sub StepThree_SortRangeFromAR4Down() Range("AR4", Range("AR4").End(xlDown)).Sort Key1:=Range("AR4"), Order1:=xlAscending, Header:=xlNo End Sub Sub StepFour_RemoveDuplicateCellsFromSelectedRange() 'PURPOSE: Remove duplicate cell values within a selected cell range 'SOURCE: [login to view URL] Dim rng As Range Dim x As Integer 'Optimize code execution speed [login to view URL] = False 'Determine range to look at from user's selection On Error GoTo InvalidSelection Set rng = Selection On Error GoTo 0 'Determine if multiple columns have been selected If [login to view URL] > 1 Then On Error GoTo InputCancel x = InputBox("Multiple columns were detected in your selection. " & _ "Which column should I look at? (Number only!)", "Multiple Columns Found!", 1) On Error GoTo 0 Else x = 1 End If 'Optimize code execution speed [login to view URL] = xlCalculationManual 'Remove entire row [login to view URL] Columns:=x 'Change calculation setting to Automatic [login to view URL] = xlCalculationAutomatic Exit Sub 'ERROR HANDLING InvalidSelection: MsgBox "You selection is not valid", vbInformation Exit Sub InputCancel: End Sub Sub StepFive_CopyPasteTransposeAR4DownToAR2() Range("AR4", Range("AR4").End(xlDown)).Copy Range("AR2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True End Sub Sub StepSix_CopyPasteTransposeAR4DownToAR3() Range("AR4", Range("AR4").End(xlDown)).Copy Range("AR3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True End Sub Sub StepSeven_CopyPasteTransposeAQ3DownToAR3() Range("AQ3", Range("AQ3").End(xlDown)).Copy Range("AR3") End Sub Sub StepEight_GiveFormulaToAR3() Range("AR3").Select [login to view URL] = _ "=IF(RC37=""Ignore Odds"","""",IF(OR(RC6=R2C,RC7=R2C),IF(RC6=R2C,RC42,IF(RC7=R2C,RC43)),""""))" Range("AR4").Select End Sub Sub StepNine_CopyFormulaFromAR3AndPasteToAll() Range("AR3").Select [login to view URL] Range(Selection, [login to view URL](xlToRight)).Select Range(Selection, [login to view URL](xlDown)).Select [login to view URL] End Sub