Помогите исправить ошибку.... Немогу сам разобраться - VB

Формулировка задачи:

Я не слишком шарю в Вижуал Бейсик но создал такое чудо:

Worksheet_Change( Target  Range)
     w  
    
    Sheets().
     Range().Value =  
    Sheets().
    Range().
    Selection.Copy
     
     EmptyCell  Range
  Sheets().
   StartCell = 
   Len(Range(StartCell)) =  
     EmptyCell = Range(StartCell)
  
     EmptyCell = Range(StartCell).(xlDown).Offset()
   
      EmptyCell.
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets().
    Range().
    ActiveCell.FormulaR1C1 = 
    
 

Суть такая: листе 2 автоматически по времени появляеться единичка в ячейке Р2 то включаеться макрос...
Макрос копирует определенные 2 ячейки и должен скопировать их на другой лист, но при етом он ищет первую свободную яейку а потом туда вставяет...
Жду вашх ответов!!!Зарание спасибо

Решение задачи: «Помогите исправить ошибку.... Немогу сам разобраться»

textual
                            Листинг программы 
                        
                            EmptyCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False