Copy/Pasting and then Formatting a Table

Hello,

I am working on a program that does a whole bunch of analysis over 16 sheets of 640x512 pixel values and then copies the data of interest in a new sheet and formats it as a table to be imported into a word template so that it will be easy for the user to get the report of the information that is needed without having to do the analysis and sort through the excel document. I have the program able to load and analyse the data, save the document and do everything I need. I am having trouble importing into word but that will be on a different thread. The problem I am posting to help solve is that I am looking for a cleaner way to structure the following code:

Sub sbCreateTable()
         
    Dim tbl As ListObject
         
    Sheets.Add After:=Sheets("Std. Dev.")
    Sheets(18).Name = "Report"
    Sheets("Report").Select
    Range("A1").Value = "Channel"
    Range("A2").Value = 0
    Range("A3").Value = 1
    Range("A2:A3").Select
    Selection.AutoFill Destination:=Range("A2:A17"), Type:=xlFillDefault
    Range("A2:A17").Select
    
    
    Range("B2").Value = "=Std. Dev.'!D519"
    Range("B3").Value = "=Std. Dev.'!D520"
    Range("B4").Value = "=Std. Dev.'!D521"
    Range("B5").Value = "=Std. Dev.'!D522"
    Range("B6").Value = "=Std. Dev.'!D523"
    Range("B7").Value = "=Std. Dev.'!D524"
    Range("B8").Value = "=Std. Dev.'!D525"
    Range("B9").Value = "=Std. Dev.'!D526"
    Range("B10").Value = "=Std. Dev.'!D527"
    Range("B11").Value = "=Std. Dev.'!D528"
    Range("B12").Value = "=Std. Dev.'!D529"
    Range("B13").Value = "=Std. Dev.'!D530"
    Range("B14").Value = "=Std. Dev.'!D531"
    Range("B15").Value = "=Std. Dev.'!D532"
    Range("B16").Value = "=Std. Dev.'!D533"
    Range("B17").Value = "=Std. Dev.'!D534"
    
    
    Range("B2:B3").Select
    Selection.AutoFill Destination:=Range("B2:B17"), Type:=xlFillDefault
    Range("B2:B17").Select
        
        
    Range("B1").Value = "Noise"
    Range("A1:B17").Select
    Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes)
    tbl.TableStyle = "TableStyleMedium15"

The problem I am running into is that it is giving me an error on the first "" Range("B2").Value ="Std. Dev.'!D534" "".
The error is: "application-defined or object-defined Error."
I wasn't getting this error when I ran it 3 days ago but not I seem to be having troubles with it.

Is there a cleaner way to do this? I really hate the 'Copy and Paste' Method but I couldn't figure out of to get the auto fill to cycle through the referenced cells that are in the Formula too.

Thank you Bernie. This code looks way cleaner and is executed much faster. The issue I am having now however is ( And I should have said this in my original post) The data I am copying from the Std. Dev. sheet is horizontal and I need it to be pasted into a vertical orientation from left to right to top to bottom respectively. Is there a transpose function?

Thank You, That edit worked perfectly! Got my project back on track!