Excel 2003 VBA 程式問題(New sheet copy file to another sheet)

Option Explicit

Private Sub CommandButton1_Click()
    DataClear
End Sub

Private Sub CommandButton2_Click()
    If WorksheetFunction.CountA(Me.Range("E1:E2"), Me.Range("C4:G4"), Me.Range("C5:D5")) < 9 Then
        MsgBox ("需輸入完整資料!")
    Else
        Dim R As Integer
        With Sheets("Output data")
            R = WorksheetFunction.CountA(.Range("A:A"))
            .Range("A2:B2").Offset(R) = Array(Me.Range("E1").Value, Me.Range("E2").Value)
            .Range("C2:G2").Offset(R) = Me.Range("C4:G4").Value
            .Range("H2:L2").Offset(R) = Me.Range("C5:G5").Value
        End With
        MsgBox ("輸入完成!")
        DataClear
     End If
End Sub

Private Function DataClear()
    Me.Range("E1:G2").ClearContents
    Me.Range("C4:G5").ClearContents
End Function

YS2000 wrote:
在Input dat...(恕刪)

YS2000 wrote:
1.在VBA裡選取你...(恕刪)

*小白* wrote:
不好意思,再在請問...(恕刪)

YS2000 wrote:
---.Range(...(恕刪)