This is my vba code
Sub VGTCopyPaste(ws As Worksheet, Value1 As String, Value2 As String, Value3 As String, Value4 As String, Value5 As String, Value6 As Stri