Copy a range to different sheets depending on first cell contents

Hi WaveOfMutilation
something along the lines of

Sub ProcessWorkbook(wbk As Workbook, rngDest As Range)
    Dim Letter As String
    Letter = Sheets(2).Range("A1")
    Select Case Letter
    Case "A"
        wbk.Sheets(2).Range("A1:A30").Copy
        rngDest.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Case "C"

    Case "M"

    Case Else

    End Select


End Sub