Speed Up Loop in VBA

All,

Is there a faster way to perform the following two loops?

    Dim i As Long
    Dim j As Long

        'Combine Project Number and Job Number
        For i = 1 To 100
            If Range("D" & i).Value = "" Then GoTo Nexti
            If Range("A" & i).Value = "" And Range("B" & i).Value = "" And Range("C" & i).Value = "" And Range("D" & i).Value <> "" Then
                Range("D" & i - 2).Value = Range("D" & i).Value & " / " & Range("D" & i - 2).Value
                End If
Nexti:
            Next

        'Move Piece Counts + Frame Weight to job information row
        For j = 1 To 100
        If Range("A" & j).Value = "" Then GoTo Nextj
            If Range("A" & j).Value <> "" And Range("E" & j).Value <> "" Then
                Range("G" & j).Value = Range("G" & j + 1).Value 'BuiltUp
                Range("H" & j).Value = Range("H" & j + 1).Value 'HotRolled
                Range("I" & j).Value = Range("I" & j + 1).Value 'ColdFab
                Range("J" & j).Value = Range("J" & j + 1).Value 'HotDip
                End If
Nextj:
            Next