тъй като не казваш къде са ти данните
пробвай това


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells = Cells(1, 1) Then

Cells.Find(What:=Cells(1, 1)).Activate
Cells.FindNext(After:=ActiveCell).Select
r = Selection.Row
k = Selection.Column

Cells(1, 2) = Cells(r, k + 1)
Cells(1, 3) = Cells(r, k + 2)
Cells(1, 1).Select
End If
End Sub

Редактирано от nepukis на 20.02.12 15:01.