Better way to write this

[Nlhicks]

Is there a better way to write this and have it still do what it is doing?

Sub TryUpdate()

Dim RngRange01 As Range

    rngRang01 = Range("A" & Rows.Count).End(xlUp).Row
    Range("A2:P" & rngRang01).SpecialCells(xlCellTypeVisible).Select

 
    If Worksheets("Line Update").Range("B11") <> Worksheets("Line Update").Range("E11") Then
    Worksheets("Sheet2").Range("B2:B" & rngRang01).Value = Worksheets("Line Update").Range("E11").Value
   
    End If
   
    If Worksheets("Line Update").Range("B12") <> Worksheets("Line Update").Range("E12") Then
    Worksheets("Sheet2").Range("C2:C" & rngRang01).Value = Worksheets("Line Update").Range("E12").Value
 
    End If

    If Worksheets("Line Update").Range("B13") <> Worksheets("Line Update").Range("E13") Then
    Worksheets("Sheet2").Range("D2:D" & rngRang01).Value = Worksheets("Line Update").Range("E13").Value
 
    End If

    If Worksheets("Line Update").Range("B14") <> Worksheets("Line Update").Range("E14") Then
    Worksheets("Sheet2").Range("E2:E" & rngRang01).Value = Worksheets("Line Update").Range("E14").Value
 
    End If
   
     If Worksheets("Line Update").Range("B15") <> Worksheets("Line Update").Range("E15") Then
     Worksheets("Sheet2").Range("F2:F" & rngRang01).Value = Worksheets("Line Update").Range("E15").Value
 
    End If
     If Worksheets("Line Update").Range("B16") <> Worksheets("Line Update").Range("E16") Then
        Worksheets("Sheet2").Range("G2:G" & rngRang01).Value = Worksheets("Line Update").Range("E16").Value
 
    End If
   
    If Worksheets("Line Update").Range("B17") <> Worksheets("Line Update").Range("E17") Then
    Worksheets("Sheet2").Range("H2:H" & rngRang01).Value = Worksheets("Line Update").Range("E17").Value
 
    End If

    If Worksheets("Line Update").Range("B18") <> Worksheets("Line Update").Range("E18") Then
    Worksheets("Sheet2").Range("I2:I" & rngRang01).Value = Worksheets("Line Update").Range("E18").Value
 
    End If


End Sub

 

[Fluff]

How about

Sub TryUpdate()
   Dim RngRange01 As Long, i As Long
   Dim Ws As Worksheet

   Set Ws = Sheets("Sheet2")
    Range("A2:P" & rngRang01).SpecialCells(xlCellTypeVisible).Select

   With Worksheets("Line Update")
      rngRang01 = .Range("A" & Rows.Count).End(xlUp).Row
      For i = 11 To 18
         If .Range("B" & i) <> .Range("E" & i) Then
            Ws.Cells(2, i - 9).Resize(rngRang01 - 1).Value = .Range("E" & i).Value
         End If
      Next i
   End With
End Sub

 

[Nlhicks]

I got the error below and it pointed to

 

[Fluff]

As I see no point in having that line, just delete it.

 

[Nlhicks]

Whoo Hooo it worked, I had to modify a couple of minor things but it works

 

[Fluff]

Glad to help & thanks for the feedback.