I m using following code to load data for editing from 2 master sheet.. my code is working as per my requiremetn but this code is too long coding.. i wanna use short to this code pls help 

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address(0, 0) <> "F1" Then Exit Sub
Dim r As Range, i&
Dim s As Range, j&
Dim Name As String
Dim Firstname As String
Dim Lastname As String
Dim TL, STC, ETC As String


Set r = Sheets("Prarup-1").Columns(2).Find(Target, lookat:=xlWhole)
MsgBox r
If r Is Nothing Then MsgBox "not found " & Target.Value, 64: Exit Sub
For i = 1 To 8
    If Len(r(i + 1, 1)) = 0 Then Set r = Union(r, r(i + 1, 1)) Else Exit For
Next i

Set s = Sheets("Prarup-2").Columns(3).Find(Target, lookat:=xlWhole)
For j = 1 To 8
    If Len(s(j + 1, 1)) = 0 Then Set s = Union(s, s(j + 1, 1)) Else Exit For
Next j



Application.EnableEvents = False
Me.Range("a6:j13").ClearContents
Me.Range("a6:a6").Resize(r.Rows.Count).Value = r.Offset(, 2).Resize(, 1).Value
Me.Range("c6:j6").Resize(r.Rows.Count).Value = r.Offset(, 3).Resize(, 8).Value
Name = r(1, 2)
Firstname = Split(Name, " ")(0)
Lastname = Right(Name, Len(Name) - InStrRev(Name, " "))
Me.Range("b2").Value = Firstname
Me.Range("d2").Value = Lastname
TL = s(1, 6)
STC = s(1, 3)
ETC = s(1, 4)
Me.Range("f2").Value = TL
Me.Range("H2").Value = STC
Me.Range("j2").Value = ETC
Application.EnableEvents = True
End Sub
thanks in advance

Santosh