Use this worksheet event code
Code:Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ws_exit Application.EnableEvents = False If Target.Address = "$B$2" Then If Target.Value <> "" Then Target.Resize(6).Copy Me.Range("B11") End If End If ws_exit: Application.EnableEvents = True End Sub
Bookmarks