Copy a range to different sheets depending on first cell contents

maybe if its not to late

Sub ProcessWorkbook(wbk As Workbook, rngDest As Range)
    if Sheets(2).Range("A1")= 100
    wbk.Sheets(2).Range("A1:A30").Copy
    rngDest.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
  end if
End Sub