问将特定单元格复制到另一个工作表

EN

Sub main()
Dim intCountRows As Integer
If Range("Q4") = True Then
    intCountRows = GetCount(3, Worksheets(Range("R4")))
    Worksheets(Range("R4")).Cells(intCountRows, 3) = Range("G4")
    intCountRows = GetCount(8, Worksheets(Range("R4")))
    Worksheets(Range("R4")).Cells(intCountRows, 8) = Range("I4")
End If
End Sub

Function GetCount(ByVal intColumn As Integer, ByRef wrkSheet As Worksheet) As Integer
Dim i As Integer
Dim flag As Boolean
i = 1
flag = True
While flag = True
    If wrkSheet.Cells(i, intColumn) <> "" Then
        i = i + 1
    Else
        flag = False
    End If
Wend

GetCount = i - 1
End Function