SHARE
TWEET

Dan Marshall

a guest Feb 27th, 2020 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub Forecast_input()
  2.  
  3. ws_output = "Data"
  4.  
  5. nextr = Sheets(ws_output).Range("e" & Rows.Count).End(xlUp).Offset(1).Row
  6.  
  7. Sheets(ws_output).Cells(nextr, 2).Value = Range("W1FN").Value
  8. Sheets(ws_output).Cells(nextr, 3).Value = Range("W1FCE").Value
  9. Sheets(ws_output).Cells(nextr, 4).Value = Range("EW1FCA").Value
  10. Sheets(ws_output).Cells(nextr, 5).Value = Range("W1WC").Value
  11. Sheets(ws_output).Cells(nextr, 6).Value = Range("W1PL").Value
  12. Sheets(ws_output).Cells(nextr, 7).Value = Range("W1FA").Value
  13.  
  14. Sheets(ws_output).Cells(nextr + 1, 2).Value = Range("W2FN").Value
  15. Sheets(ws_output).Cells(nextr + 1, 3).Value = Range("W2FCE").Value
  16. Sheets(ws_output).Cells(nextr + 1, 4).Value = Range("EW2FCA").Value
  17. Sheets(ws_output).Cells(nextr + 1, 5).Value = Range("W2WC").Value
  18. Sheets(ws_output).Cells(nextr + 1, 6).Value = Range("W2PL").Value
  19. Sheets(ws_output).Cells(nextr + 1, 7).Value = Range("W2FA").Value
  20.  
  21. Sheets(ws_output).Cells(nextr + 2, 2).Value = Range("W3FN").Value
  22. Sheets(ws_output).Cells(nextr + 2, 3).Value = Range("W3FCE").Value
  23. Sheets(ws_output).Cells(nextr + 2, 4).Value = Range("EW3FCA").Value
  24. Sheets(ws_output).Cells(nextr + 2, 5).Value = Range("W3WC").Value
  25. Sheets(ws_output).Cells(nextr + 2, 6).Value = Range("W3PL").Value
  26. Sheets(ws_output).Cells(nextr + 2, 7).Value = Range("W3FA").Value
  27.  
  28. Sheets(ws_output).Cells(nextr + 3, 2).Value = Range("W4FN").Value
  29. Sheets(ws_output).Cells(nextr + 3, 3).Value = Range("W4FCE").Value
  30. Sheets(ws_output).Cells(nextr + 3, 4).Value = Range("EW4FCA").Value
  31. Sheets(ws_output).Cells(nextr + 3, 5).Value = Range("W4WC").Value
  32. Sheets(ws_output).Cells(nextr + 3, 6).Value = Range("W4PL").Value
  33. Sheets(ws_output).Cells(nextr + 3, 7).Value = Range("W4FA").Value
  34.  
  35. Sheets(ws_output).Cells(nextr + 4, 2).Value = Range("W5FN").Value
  36. Sheets(ws_output).Cells(nextr + 4, 3).Value = Range("W5FCE").Value
  37. Sheets(ws_output).Cells(nextr + 4, 4).Value = Range("EW5FCA").Value
  38. Sheets(ws_output).Cells(nextr + 4, 5).Value = Range("W5WC").Value
  39. Sheets(ws_output).Cells(nextr + 4, 6).Value = Range("W5PL").Value
  40. Sheets(ws_output).Cells(nextr + 4, 7).Value = Range("W5FA").Value
  41.  
  42. Sheets(ws_output).Cells(nextr + 5, 2).Value = Range("W6FN").Value
  43. Sheets(ws_output).Cells(nextr + 5, 3).Value = Range("W6FCE").Value
  44. Sheets(ws_output).Cells(nextr + 5, 4).Value = Range("EW6FCA").Value
  45. Sheets(ws_output).Cells(nextr + 5, 5).Value = Range("W6WC").Value
  46. Sheets(ws_output).Cells(nextr + 5, 6).Value = Range("W6PL").Value
  47. Sheets(ws_output).Cells(nextr + 5, 7).Value = Range("W6FA").Value
  48.  
  49. Sheets(ws_output).Cells(nextr + 6, 2).Value = Range("W7FN").Value
  50. Sheets(ws_output).Cells(nextr + 6, 3).Value = Range("W7FCE").Value
  51. Sheets(ws_output).Cells(nextr + 6, 4).Value = Range("EW7FCA").Value
  52. Sheets(ws_output).Cells(nextr + 6, 5).Value = Range("W7WC").Value
  53. Sheets(ws_output).Cells(nextr + 6, 6).Value = Range("W7PL").Value
  54. Sheets(ws_output).Cells(nextr + 6, 7).Value = Range("W7FA").Value
  55.  
  56. Sheets(ws_output).Cells(nextr + 7, 2).Value = Range("W8FN").Value
  57. Sheets(ws_output).Cells(nextr + 7, 3).Value = Range("W8FCE").Value
  58. Sheets(ws_output).Cells(nextr + 7, 4).Value = Range("EW8FCA").Value
  59. Sheets(ws_output).Cells(nextr + 7, 5).Value = Range("W8WC").Value
  60. Sheets(ws_output).Cells(nextr + 7, 6).Value = Range("W8PL").Value
  61. Sheets(ws_output).Cells(nextr + 7, 7).Value = Range("W8FA").Value
  62.  
  63. Sheets(ws_output).Cells(nextr + 8, 2).Value = Range("W9FN").Value
  64. Sheets(ws_output).Cells(nextr + 8, 3).Value = Range("W9FCE").Value
  65. Sheets(ws_output).Cells(nextr + 8, 4).Value = Range("EW9FCA").Value
  66. Sheets(ws_output).Cells(nextr + 8, 5).Value = Range("W9WC").Value
  67. Sheets(ws_output).Cells(nextr + 8, 6).Value = Range("W9PL").Value
  68. Sheets(ws_output).Cells(nextr + 8, 7).Value = Range("W9FA").Value
  69.  
  70. Sheets(ws_output).Cells(nextr + 9, 2).Value = Range("W10FN").Value
  71. Sheets(ws_output).Cells(nextr + 9, 3).Value = Range("W10FCE").Value
  72. Sheets(ws_output).Cells(nextr + 9, 4).Value = Range("EW10FCA").Value
  73. Sheets(ws_output).Cells(nextr + 9, 5).Value = Range("W10WC").Value
  74. Sheets(ws_output).Cells(nextr + 9, 6).Value = Range("W10PL").Value
  75. Sheets(ws_output).Cells(nextr + 9, 7).Value = Range("W10FA").Value
  76.  
  77. Sheets(ws_output).Cells(nextr + 10, 2).Value = Range("W11FN").Value
  78. Sheets(ws_output).Cells(nextr + 10, 3).Value = Range("W11FCE").Value
  79. Sheets(ws_output).Cells(nextr + 10, 4).Value = Range("EW11FCA").Value
  80. Sheets(ws_output).Cells(nextr + 10, 5).Value = Range("W11WC").Value
  81. Sheets(ws_output).Cells(nextr + 10, 6).Value = Range("W11PL").Value
  82. Sheets(ws_output).Cells(nextr + 10, 7).Value = Range("W11FA").Value
  83.  
  84. Sheets(ws_output).Cells(nextr + 11, 2).Value = Range("W12FN").Value
  85. Sheets(ws_output).Cells(nextr + 11, 3).Value = Range("W12FCE").Value
  86. Sheets(ws_output).Cells(nextr + 11, 4).Value = Range("EW12FCA").Value
  87. Sheets(ws_output).Cells(nextr + 11, 5).Value = Range("W12WC").Value
  88. Sheets(ws_output).Cells(nextr + 11, 6).Value = Range("W12PL").Value
  89. Sheets(ws_output).Cells(nextr + 11, 7).Value = Range("W1FA").Value
  90.  
  91.  
  92.  
  93. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top