Skip to next row

NoSparks · #2 04-26-2019, 06:18 AM

Row is a key word in VBA and should not be used as a variable name.
Try this

Code:

Sub SubmitWRData()
    Dim refTable As Variant, trans As Variant
    Dim writeRow As Long
    Dim Dest As String, Field As String

refTable = Array("B = D1", "C = D2", "D=D3", "E=D4", "F=D5", "K=B6", "L=D6")
           
writeRow = Worksheets("WorkRequestInfo").Range("B" & Rows.Count).End(xlUp).Row + 1

For Each trans In refTable
    Dest = Trim(Left(trans, InStr(1, trans, "=") - 1)) & writeRow
    Field = Trim(Right(trans, Len(trans) - InStr(1, trans, "=")))
    Worksheets("WorkRequestInfo").Range(Dest).Value = Worksheets("CHECKSHEET").Range(Field).Value
Next

End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Skip to next row after data is entered	pollofeliz32	Excel	1	04-26-2019 05:49 AM
Using skip record as well as if, then, else	azza	Mail Merge	5	10-11-2014 11:25 PM
Transpose cells and skip?	ItsjustB	Excel	1	01-09-2013 08:53 AM
skip to next sentence?	moreenz	Word	3	08-16-2012 02:41 PM
skip duplicate letters	karen h	Mail Merge	10	03-23-2011 08:37 AM