Перенос данных из одной книги в другую книгу ежедневно в определенные/пустые ячейки

Я нахожусь в процессе разработки макроса, который будет передавать данные из одной рабочей книги (enterdata) в другую рабочую книгу (extractdata), имея массовый набор формул в рабочей книге extractdata. Мне нужно, чтобы данные извлекались в определенные ячейки, поскольку данные вводятся день за днем. Эти данные необходимо скомпилировать, и у меня возникают проблемы с этой частью.

Мне нужно, чтобы данные были извлечены в определенные ячейки, потому что, если я использую функции пустой строки, у меня есть формулы в конце моих строк и внизу моих столбцов, поэтому я пытаюсь ввести данные в определенные ячейки

Я думаю, что я на правильном пути, но у меня постоянно есть Run-time error '1004':, утверждающий select method of range class failed.

Заранее спасибо, Андерсон

'Next the transfers of the data from the daily quality activity to the specific worksheet of the unit charts'
'Accesories'
Set myData = Workbooks.Open("C:\database\Extractdata.xlsm")
Worksheets("ACC").Select

Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer
    Dim currentRowValue As String

    sourceCol = 1   'column A has a value of 1
    rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row

    'for every row, find the first blank cell and select it
    For currentRow = 3 To rowCount
        currentRowValue = Cells(currentRow, sourceCol).Value
        If IsEmpty(currentRowValue) Or currentRowValue = "" Then
            Cells(currentRow, sourceCol).Select
        End If
    Next

With Worksheets("ACC").Range("A3")
.Offset(ColumnCount, 0) = currentDate
.Offset(ColumnCount, 1) = devicesStockedACC
.Offset(ColumnCount, 2) = qipAttemptsACC
.Offset(ColumnCount, 3) = qipncproductCountACC
.Offset(ColumnCount, 4) = totalqcncCountACC
.Offset(ColumnCount, 5) = devicencidCountACC
.Offset(ColumnCount, 6) = componentncidCountACC
End With



NEW CODE 3/13/14


Dim currentDate As String

Dim devicesStockedACC As String
Dim qipAttemptsACC As String
Dim qipncproductCountACC As String
Dim totalqcncCountACC As String
Dim devicencidCountACC As String
Dim componentncidCountACC As String

'Acessories'
Worksheets("tuesday").Select
currentDateACC = Range("A1")
Worksheets("tuesday").Select
devicesStockedACC = Range("C12")
Worksheets("tuesday").Select
qipAttemptsACC = Range("D12")
Worksheets("tuesday").Select
qipncproductCountACC = Range("E12")
Worksheets("tuesday").Select
totalqcncCountACC = Range("H12")
Worksheets("tuesday").Select
devicencidCountACC = Range("L12")
Worksheets("tuesday").Select
componentncidCountACC = Range("M12")


'Next the transfers of the data from the daily quality activity to the specific worksheet of the unit charts'
'Accesories'
Set myData = Workbooks.Open("C:\database\Extractdata.xlsm")
Worksheets("ACC").Select
Worksheets("ACC").Range("A3").Select

Application.Run "Selectfirstblankcell"



Sheets("ACC").Activate

With Worksheets("ACC").Range(ActiveCell)
.Offset(ColumnCount, 0) = currentDate
.Offset(ColumnCount, 1) = devicesStockedACC
.Offset(ColumnCount, 2) = qipAttemptsACC
.Offset(ColumnCount, 3) = qipncproductCountACC
.Offset(ColumnCount, 4) = totalqcncCountACC
.Offset(ColumnCount, 5) = devicencidCountACC
.Offset(ColumnCount, 6) = componentncidCountACC
.Offset(ColumnCount, 8) = currentDate
.Offset(ColumnCount, 15) = currentDate
End With



Application.Run "Selectfirstblankcell" = 

Public Sub SelectFirstBlankCell()
    Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer
    Dim currentRowValue As String

    sourceCol = 1   'column F has a value of 6
    rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row

    'for every row, find the first blank cell and select it
    For currentRow = 3 To rowCount
    For currentCol = 1 To ColCount
        currentCellValue = Cells(currentRow, currentCol).FormulaR1C1
        If IsEmpty(currentCellValue) Or currentCellValue = "" Then
            Cells(currentRow, currentCol).Select 'do something else than select maybe?
            'put code here to handle the empty cell
            Exit For 'this will exit the inner loop, so it will only process the first blank cell on each row
        End If
    Next
Next
End Sub