指出消除多处数字所编代码的错处

请求帮助指出消除多处数字所编代码的错处
我做了一个按钮，要把A4：D100区域及F1、H1和J1,的内容一键同时清除，代码如下：
  Private Sub 清除对账按钮_Click()
  Range("a4:d100", "F1", "H1", "J1").Select
  Selection.ClearContents
  End Sub
但显示“编译错误：错误的参数号或无效的属性赋值”
请求那位帮助指出错误，谢谢！


------解决方案--------------------------------------------------------

VB code

Application.Union(Range("a4:d100"), Range("f1"), Range("h1"),Range("j1")).ClearContents
------解决方案--------------------------------------------------------
Range("A4:D100,F1,H1,J1").ClearContents

中间没有 " 号