Q:

Returned to unanswered - Copying and pasting to a specific range of cells based on selection from drop down list

EDIT 2/10/18 - 22:45
I spoke too soon earlier and have updated my initial post.  Whilst I thought that this problem had largely been solved, I have now seen that the objectives copy from Objectives Entry Sheet and are pasted in each section - Autumn, Spring and Summer - on the Data Validation sheet, regardless of where they are entered in the Data Validation Sheet. 
For example if I enter text in F13 - the 'Autumn, Year 1, Objective 1' cell, pressing update copies the text to the Data Validation sheet into cells D19, J19 and P19 - the 'Year 1 Autumn, Spring and Summer Objective 1' cells
Please can anyone suggest what is causing this? 
Option Explicit

Sub SubjectObjectives()
    Dim srcWs As Worksheet
    Dim trgWs As Worksheet
    Dim dvCell As Range
    Dim AutSrc As Range, SprSrc As Range, SumSrc As Range
    Dim Art As Range, Computing As Range, DT As Range, Geography As Range, History As Range, MFL As Range, Music As Range, PE As Range, RE As Range, Science As Range
    Dim AutTarget As Range, SprTarget As Range, SumTarget As Range
    Dim cell As Range
    Dim hLink As Hyperlink

'Set source and target worksheets
    Set srcWs = Worksheets("Objectives Entry Sheet")
    Set trgWs = Worksheets("Data Validation")

'Set cell where Dropdown list is
    Set dvCell = Worksheets("Objectives Entry Sheet").Range("B11")

'Set where objectives are copied from
    Set AutSrc = srcWs. Range("F13:K18")
    Set SprSrc = srcWs. Range("F23:K28")
    Set SumSrc = srcWs. Range("F33:K38")

'Set where objectives are copied to

    If dvCell = "" Then GoTo Whoops

    If dvCell. Value = "Art" Then Set AutTarget = trgWs. Range("D19:U24")
    If dvCell. Value = "Art" Then Set SprTarget = trgWs. Range("J19:O24")
    If dvCell. Value = "Art" Then Set SumTarget = trgWs. Range("P19:U24")

    If dvCell. Value = "Computing" Then Set AutTarget = trgWs. Range("D25:U30")
    If dvCell. Value = "Computing" Then Set SprTarget = trgWs. Range("J25:O30")
    If dvCell. Value = "Computing" Then Set SumTarget = trgWs. Range("P25:U30")

    If dvCell. Value = "DT" Then Set AutTarget = trgWs. Range("D31:U36")
    If dvCell. Value = "DT" Then Set SprTarget = trgWs. Range("J31:O36")
    If dvCell. Value = "DT" Then Set SumTarget = trgWs. Range("P31:U36")

    If dvCell. Value = "Geography" Then Set AutTarget = trgWs. Range("D37:U42")
    If dvCell. Value = "Geography" Then Set SprTarget = trgWs. Range("J37:O42")
    If dvCell. Value = "Geography" Then Set SumTarget = trgWs. Range("P37:U42")

    If dvCell. Value = "History" Then Set AutTarget = trgWs. Range("D43:U48")
    If dvCell. Value = "History" Then Set SprTarget = trgWs. Range("J43:O48")
    If dvCell. Value = "History" Then Set SumTarget = trgWs. Range("P43:U48")

    If dvCell. Value = "MFL" Then Set AutTarget = trgWs. Range("D49:U54")
    If dvCell. Value = "MFL" Then Set SprTarget = trgWs. Range("J49:O54")
    If dvCell. Value = "MFL" Then Set SumTarget = trgWs. Range("P49:U54")

    If dvCell. Value = "Music" Then Set AutTarget = trgWs. Range("D55:U60")
    If dvCell. Value = "Music" Then Set SprTarget = trgWs. Range("J55:O60")
    If dvCell. Value = "Music" Then Set SumTarget = trgWs. Range("P55:U60")

    If dvCell. Value = "PE" Then Set AutTarget = trgWs. Range("D61:U66")
    If dvCell. Value = "PE" Then Set SprTarget = trgWs. Range("J61:O66")
    If dvCell. Value = "PE" Then Set SumTarget = trgWs. Range("P61:U66")

    If dvCell. Value = "RE" Then Set AutTarget = trgWs. Range("D67:U72")
    If dvCell. Value = "RE" Then Set SprTarget = trgWs. Range("J67:O72")
    If dvCell. Value = "RE" Then Set SumTarget = trgWs. Range("P67:U72")

    If dvCell. Value = "Science" Then Set AutTarget = trgWs. Range("D73:U78")
    If dvCell. Value = "Science" Then Set SprTarget = trgWs. Range("J73:O78")
    If dvCell. Value = "Science" Then Set SumTarget = trgWs. Range("P73:U78")

    Application. ScreenUpdating = False

       'Copy cell contents

            AutSrc. Copy
            AutTarget. PasteSpecial xlValues, skipblanks:=True
            AutSrc. ClearContents

            SprSrc. Copy
            SprTarget. PasteSpecial xlValues, skipblanks:=True
            SprSrc. ClearContents

            SumSrc. Copy
            SumTarget. PasteSpecial xlValues, skipblanks:=True
            SumSrc. ClearContents

    Application. CutCopyMode = False

    Application. ScreenUpdating = True

Exit Sub

Whoops:
    MsgBox "Please select a subject from the dropdown menu and press 'Update' again." 

End Sub

I wish users to be able to select the subject that they are entering objectives for from a drop down list on the Objectives Entry Sheet, enter the objectives into some or all of the cells in the Autumn, Spring and Summer Term sections, and then click the Update button to copy these objectives to the appropriate cell range (based on subject and term) on the Data Validation Sheet. 

Also, is there a way to specify that any hyperlinks that are created in the Objective Entry Sheet are maintained when the cell contents are copied to the Data Validation Sheet as these cells will be used to populate other worksheets. 
The file is available here. 
Please can anyone help? 

A:

I removed the loop checking for empty cells and instead changed it to the "skipBlanks = true" under the pasteSpecial method.  Works for me! 
Option Explicit

Sub SubjectObjectives()
    Dim srcWs As Worksheet
    Dim trgWs As Worksheet
    Dim dvCell As Range
    Dim AutSrc As Range, SprSrc As Range, SumSrc As Range
    Dim Art As Range, Computing As Range, DT As Range, Geography As Range, History As Range, MFL As Range, Music As Range, PE As Range, RE As Range, Science As Range
    Dim Target As Range
    Dim cell As Range

'Set source and target worksheets
    Set srcWs = Worksheets("Objectives Entry Sheet")
    Set trgWs = Worksheets("Data Validation")

'Set cell where Dropdown list is
    Set dvCell = Worksheets("Objectives Entry Sheet").Range("B11")

'Set where objectives are copied from
    Set AutSrc = srcWs. Range("F13:K18")
    Set SprSrc = srcWs. Range("F23:K28")
    Set SumSrc = srcWs. Range("F33:K38")

'Set where objectives are copied to
    If dvCell. Value = "Art" Then Set Target = trgWs. Range("D19:I24")
    If dvCell. Value = "Computing" Then Set Target = trgWs. Range("D25:I30")
    If dvCell. Value = "DT" Then Set Target = trgWs. Range("D31:I36")
    If dvCell. Value = "Geography" Then Set Target = trgWs. Range("D37:I42")
    If dvCell. Value = "History" Then Set Target = trgWs. Range("D43:I48")
    If dvCell. Value = "MFL" Then Set Target = trgWs. Range("D49:I54")
    If dvCell. Value = "Music" Then Set Target = trgWs. Range("D55:I60")
    If dvCell. Value = "PE" Then Set Target = trgWs. Range("D61:I66")
    If dvCell. Value = "RE" Then Set Target = trgWs. Range("D67:I72")
    If dvCell. Value = "Science" Then Set Target = trgWs. Range("D73:I78")

'Begin loop
    Application. ScreenUpdating = False

      '  For Each cell In AutSrc

     '   If cell. Value <> "" Then

            AutSrc. Copy
            Target. PasteSpecial xlValues, skipBlanks:=True
      '  End If

       ' Next cell

Application. ScreenUpdating = True

End Sub

