>>639
Sub main()
Dim lngI As Long
Dim varTmp As Variant
Dim strSel As String

lngI = 50
varTmp = Worksheets("Sheet2").Cells(lngI, 1).Value

Do Until varTmp = ""
lngI = lngI + 1
varTmp = Worksheets("Sheet2").Cells(lngI, 1).Value
Loop

Worksheets("Sheet2").Select
strSel = "E" & CStr(lngI - 1)
Range("A50:" & strSel).Select
Selection.Copy

Worksheets("Sheet1").Activate
Range("A50").Select
ActiveSheet.Paste
End Sub