help fixing copy and paste vba code

[jondavis1987]

I have to keep making spreadsheets that pulls data from specific parts of worksheets. In this vba I'm trying to pull from Sheet 3012-EST-1604 cells F2:F15 and paste it on the active worksheet. Preferably to a cell that I have selected. I'm sure this is very basic, I just started working with this

Sub Hveem_B_Hanson()
'
' Hveem_B_Hanson Macro
'
' Keyboard Shortcut: Ctrl+Shift+B
'
    Sheets("3012-EST-1604").Select
    Range("F2:F15").Select
    Selection.Copy
    Sheets("activeWorksheet").Select
    Range("F2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[jondavis1987]

Never mind I got it.

Sub Hveem_B_Hanson()
'
' Hveem_B_Hanson Macro
'
' Keyboard Shortcut: Ctrl+Shift+B
'
    Sheets("3012-EST-1604").Range("F2:F15").Copy
    ActiveSheet.Select
    ActiveCell.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

 

[JLGWhiz]

Sub Hveem_B_Hanson()
'
' Hveem_B_Hanson Macro
'
' Keyboard Shortcut: Ctrl+Shift+B
'
    Sheets("3012-EST-1604").Range("F2:F15").Copy ActiveCell
    
End Sub

The code would need to be run while the sheet you select the cell on is the active sheet.

 

[jondavis1987]

That is certainly a better code than the one I just used. Thank you

 

[JLGWhiz]

That is certainly a better code than the one I just used. Thank you

If code runs and produces a desired result, it is good. Some just look neater than others.
regards, JLG