Option Explicit
Sub New_Mix_Design()
Dim srcWS As Worksheet
Dim destWS As Worksheet
Dim lColumn As Long
Set srcWS = Workbooks("Superpaves").Sheets("New Mix Design")
Set destWS = Workbooks("Superpaves").Sheets("Mix Design Information")
lColumn = destWS.Cells(1, destWS.Columns.Count).End(xlToLeft).Column + 1
With destWS
.Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row + 1).Value = srcWS.Range("B1").Value
.Cells(1, lColumn).Value = srcWS.Range("B1").Value
.Cells(3, lColumn).Value = srcWS.Range("B1").Value
.Cells(4, lColumn).Value = srcWS.Range("E3").Value
.Cells(5, lColumn).Value = srcWS.Range("B2").Value
.Cells(67, lColumn).Value = srcWS.Range("E12").Value
.Cells(70, lColumn).Value = srcWS.Range("B20").Value
.Cells(71, lColumn).Value = srcWS.Range("E22").Value
.Cells(72, lColumn).Value = srcWS.Range("E23").Value
.Cells(75, lColumn).Value = srcWS.Range("E13").Value
.Cells(76, lColumn).Value = srcWS.Range("E14").Value
.Cells(79, lColumn).Value = srcWS.Range("E11").Value
.Cells(82, lColumn).Value = srcWS.Range("E8").Value
.Cells(82, lColumn).Value = srcWS.Range("E7").Value
.Cells(88, lColumn).Value = srcWS.Range("E17").Value
.Cells(89, lColumn).Value = srcWS.Range("E18").Value
.Cells(90, lColumn).Value = srcWS.Range("E16").Value
.Cells(91, lColumn).Value = srcWS.Range("E19").Value
.Cells(95, lColumn).Value = srcWS.Range("E20").Value
.Cells(96, lColumn).Value = srcWS.Range("E21").Value
.Cells(99, lColumn).Value = srcWS.Range("E9").Value
.Cells(102, lColumn).Value = srcWS.Range("E15").Value
.Cells(23, lColumn).Resize(12, 1).Value = srcWS.Range("D26:D37").Value
.Cells(53, lColumn).Resize(12, 1).Value = srcWS.Range("F26:F37").Value
.Cells(9, lColumn).Resize(12, 1).Value = srcWS.Range("B8:B19").Value
.Cells(37, lColumn).Resize(12, 1).Value = srcWS.Range("B26:B37").Value
End With
End Sub