If column B cell is a certain value then copy and paste the value to column A

[Snaybot]

So Far I have this its not working too well haha

Sub MI_TEST_1()
' MI_TEST_1 Macro
Dim nxtRow As Integer
Dim i As Integer
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
    'If Left(Cells(i, 2), 1) = "T" Then
'Determine if change was to Column F (6)
 If Target.Column = 2 Then
'If Yes, Determine if cell = B
  If Target.Value = Left(Cells(i, 2), 1) = "T" Then
   nxtRow = Sheets(2).Range("B" & Rows.Count).End(xlUp).Row + 1
    Target.EntireRow.Copy _
     Destination:=Sheets(2).Range("A" & nxtRow)
  End If
 End If
End Sub

If the first letter of column B is a "T" then paste the value into the adjacent cell into column A


For Example:


IF cell B10 is "T1" then paste a "T" in to cell A10 if A10 is empty

Cross post:
http://www.msofficeforums.com/excel...lumn-b-cell-certain-value-then.html#post91452
http://www.excelforum.com/excel-pro...-paste-the-value-to-column-a.html#post4241066

 

[WarPigl3t]

Sub copyPaste()
     c = "B"
     adjacentCell = "A"
     firstRow = 1
     lastRow = Range(c & Rows.Count).End(xlUp).Row
     r = firstRow
     Do Until r > lastRow
          myValue = Range(c & r).Value
          myLetter = LCase(Left(myValue, 1))
          adjacentCellValue = Range(adjacentCell & r).Value
          If myLetter = "t" And adjacentCellValue = "" Then
               Range(adjacentCell & r).Value = myValue
          End If
          r = r + 1
     Loop
End Sub