Copy data from two different columns from another sheet.

Ok my question is how to copy data from one sheet to another.  Is using a macro to place the data in different place I select a good way or should I look at VBA? 

Sheet one will have the work weeks with employee names in column A and E for the hours.  On the other sheet that has data that is refreshed (from MySQL) at the end of each week A3 and up to A7 that is if all employees report hours, or they could be on vacation.   I will do this each week and create a month version later.

Attached is a sample of the data.

Ok I have figured out a few things.  Still looking how to add a variable for location, not having a hard target location.

Sub Macro6()
'
' Macro6 Macro
'

'
    Sheets("Sheet2").Select
    Range("Table1[Employee]").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("A4").Select
    ActiveSheet.Paste
    Sheets("Sheet2").Select
    Range("Table1[Hours_Worked]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet1").Select
    Range("E4").Select
    ActiveSheet.Paste
    Range("C4:C9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A3:F10").Select
    Range("F10").Activate
    Application.CutCopyMode = False
    Range("C3:C9").Select
    Selection.Copy
    Range("E4:E9").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("C4:C10").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("C4:C9").Select
    Selection.Copy
    Range("A4:A9").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Hi Frank,

No reason why you can't use what you have to do this. VBA would be a better bet in many regards because it would allow you to check that tha names are the same etc, but this could get very complicated as things get bigger.

An alternative approach would be to use formulae to get what you want.

I'll Have a look at it in my lunch break and work something up using formulae for you to look at.

Frank,

This is 1 way of doing it without VBA.

HTH